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SUMMARY 


The  work  reported  in  this  document  was  performed  under  Contract  DAAK  70- 
78-C-0062  with  the  Geographic  Sciences  Laboratory  of  the  U.S.  Army  Engineer 
Topographic  Laboratories,  Fort  Belvoir,  Virginia.  The  contract  monitor  was 
Mr.  Craig  Baker.  The  U.S.A.E.T.L.  has  been  instrumental  in  the  support  of 
research  and  applications  of  radar  image  simulation,  radar  backscatter  measure¬ 
ments  and  theory.  Additionally,  interaction  between  E.T.L.  (by  way  of  Messrs. 
Bernie  Schepps  and  Richard  Hevenor)  and  the  Remote  Sensing  Laboratory  led  to 
development  of  models  and  methodologies  for  high  quality  radar  simulations, 
and  more  recently  to  a  workshop  on  terrain  and  sea  backscatter  (also  supported 
by  the  Army  Research  Office  and  the  Naval  Research  Laboratory). 

The  purpose  of  the  work  reported  herein  was  to  produce  radar  reference 
scenes  for  a  terminal  guidance  application.  The  target  site  selected  for 
this  work  was  the  geographic  region  centered  on  the  southwestern  corner 
of  the  Freeman  Bus  Corporation  garage  in  north-eastern  Watertown,  New  York. 

The  target  site  is  the  area  (*'4100  square  kilometers)  encompassed  by  a 
circle  having  an  approximate  radius  of  36  km  extending  from  the  building  corner 
(the  center  is  located  at  43°  58’  43.409"  N  by  75°  52'  31.043"  W).  The  Water- 
town  target  site  contains  Lake  Ontario  in  the  northwestern  region,  Watertown 
in  the  central  portion,  and  is  characterized  by  a  proliferation  of  small 
agricultural  fields  which  are  mostly  fallow  in  the  winter,  and  by  forested 
regions.  The  site  represents  a  complex  mix  of  area  extensive,  distributed  tar¬ 
gets,  and  specular  reflecting  cultural  targets. 

Two  bases  were  constructed  for  this  target  site.  One  was  constructed 
for  the  high  altitude,  bands  3  and  4,  reference  scenes,  and  one  for  the  low 
altitude,  bands  1  and  2,  reference  scenes.  The  data  bases  were  constructed  to 


represent  the  "average"  winter  conditions  during  the  month  of  February  as 
determined  from  historical  weather  records.  Construction  of  these  data  bases 
is  reported  in  Section  2. 

After  construction  of  the  data  bases  was  complete,  they  were  digitized 
via  human  operators  controlling  a  large  table  digitizer  (the  one  located  at 
ETL  was  used).  The  result  of  this  task  was  computer-compatible  tapes  (CCT's) 
containing  digital  representations  of  all  the  boundaries  of  each  data  base 
arrayed  in  serial  format.  These  data  were  converted  into  a  completely-specified, 
two-dimensional  array  which  became  one  of  the  two  data  bases.  Each  of  these 
arrays  contained  all  the  information  necessary  for  producing  radar  reference 
scenes.  The  information  provided  in  each  data  base  included  the  position 
and  elevation  of  each  point  in  a  reference  coordinate  system,  the  microwave 
reflectance  category  of  each  point,  and  the  snow  depth  of  each  point.  Production 
of  these  digital  arrays  from  the  data  base  maps  is  related  in  Section  3. 

For  producing  winter  scene  simulation,  a  model  was  required  for  the  micro- 
wave  reflectance  properties  of  snow  overlaying  a  ground  category  (i.e.,  snow 
overlaying  bare  ground).  An  empirical  model  was  used.  The  model  used  is  descri¬ 
bed  in  Section  4. 

Two  sequences  of  four  (4)  radar  reference  scenes  were  produced  from  the 
two  (2)  data  bases;  one  (1)  for  winter  conditions  with  snow  present,  and  one 
(1)  for  winter  conditions  without  snow.  These  results  are  presented  in  Section 
5. 

Conclusions  and  recommendations  are  presented  in  Section  6. 
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1.0  INTRODUCTION 


1 . 1  Motivation  and  Purpose 

Studies  performed  by  Cosgriff  et  al_.],  Bush  et  al_.2,  and  Stiles  et  aK3 4 5, 
have  shown  that  the  radar  return  amplitude  from  terrain  can  be  affected  drama¬ 
tically  by  seasonal  and  meteorological  changes.  The  radar  reflectivity  can  be 
altered  by  many  decibels  for  changes  at  a  site  such  as  snow  and  ice  cover, 
ground  moisture,  and  foliation  or  defoliation  of  trees.  Therefore,  it  is  impera¬ 
tive  to  study  the  effects  of  these  changes  on  the  radar  image  when  it  is  being 
used  as  an  "aseasonal"  reference  scene  for  guidance. 

A  secondary  objective  of  the  study  was  to  determine  the  effect  of  seasonal 
variations  in  a  target  site  on  the  guidance  system.  However,  the  test  data 
to  support  this  objective  has  not  yet  been  collected  by  the  U.S.  Army. 

The  theoretical  model  and  its  implementation  as  a  set  of  computer  programs 

4 

for  radar  image  simulation  was  reported  earlier.  More  recently,  high  quality 
SLAR  (side  looking  airborne  radar)  simulations  were  reported.3 


^Cosgriff,  R.L.,  W.H.  Peake,  and  R.C.  Taylor,  "Terrain  Scattering  Pro¬ 
perties  for  Sensor  System  Design,"  Engineering  Experiment  Station  Bulletin, 

181,  Vol.  29,  Ohio  State  University,  Columbus,  Ohio,  May  1960. 

2Bush,T.,  F.  Ulaby,  T.  Metzler,  and  H.  Stiles,  "Seasonal  Variations  of 
the  Microwave  Scattering  Properties  of  Deciduous  Trees  as  Measured  in  the  1-18 
GHz  Spectral  Range,"  Remote  Sensing  Laboratory  Technical  Report,  RSL  TR  177-60, 
University  of  Kansas  Center  for  Research,  Inc.,  Lawrence,  Kansas,  June  1976. 

3 

Stiles,  H.,  F.  Ulaby,  B.  Hanson  and  L.  Dellwig,  "Snow  Backscatter  in  the 
1-8  GHz  Region,"  Remote  Sensing  Laboratory  Technical  Report,  RSL  TR  177-61, 
University  of  Kansas  Center  for  Research,  Inc.,  Lawrence,  Kansas  June  1976. 

4 

Martin,  R.L.,  "SLAR  Simulation  and  Applications,"  Master's  Thesis,  Univer¬ 
sity  of  Kansas,  September  1976. 

5 

Holtzman,  J.C.,  V.H.  Kaupp,  J.L.  Abbott,  V.S.  Frost,  E.E.  Komp,  and 
E.C.  Davison,  "Radar  Image  Simulation:  Validation  of  the  Point  Scattering 
Model,"  Enqineer  Topographic  Laboratories,  Unites  States  Army,  Fort  Belvoir, 
Virginia,  ETL-0117,  June  1977. 


1.2  Test  Description 


A  set  of  four  (4)  radar  scenes  (called  reference  scenes)  was  produced 

of  the  Watertown  test  target  site  for  testing  against  recorded  radar  data  via 
*6 

a  Correlatron  test  configuration. 

The  four  reference  scenes  were  produced  via  the  PSM  radar  simulation  model 
from  a  data  base  constructed  of  the  Watertown  test  site.  The  data  base  was 
developed  to  support  production  of  reference  scenes  of  winter  conditions  at  the 
target  site.  The  approach  taken  was  to  model  the  target  site  in  two  separate 
stages.  The  first  stage  was  the  aseasonal  one  in  which  the  characteristics  of 
the  ground  and  its  cover  which  are  invariable  across  seasons  were  modeled. 

The  second  stage  was  the  seasonal  one  in  which  seasonal  effects  were  modeled. 

The  season  specified  for  this  work  was  winter.  In  particular,  winter  conditions 
for  February  at  the  target  site  as  determined  from  historical  perspectives 
were  modeled. 

Four  (4)  reference  scenes  were  generated  from  this  Watertown/winter  data 
base.  The  four  (4)  simulations  represent  the  reference  scenes  for  different 
altitudes  over  the  target,  each  successively  lower  in  the  terminal  trajectory 
of  a  ballistic  missile.  The  four  (4)  reference  scenes  were  produced  and  stored 
on  magnetic  tapes  which  were  shipped  to  ETL  (Engineer  Topographic  Laboratories) 
for  testing. 

The  plan  was  for  the  four  (4)  reference  scenes  to  be  tested  against  actual 
data  via  the  Correlatron  installed  in  a  test  configuration  at  ETL.  The  actual 
data  were  to  have  been  obtained  by  the  Army  in  a  flight  test  program  scheduled 

♦Correlatron  is  the  name  of  a  device  manufactured  by  Goodyear  Aerospace 
Corporation  and  which  measured  the  two-dimensional  cross-correlation  between 
a  "live"  and  a  stored  reference  signal. 

®Klass,  P.J.,  "Guidance  Device  Set  for  Pershing  Tests,"  Aviation  Week  and 
Space  Technology,  12  May  1975. 


for  February  1978,  or  February  1979.  Unfortunately,  the  flight  test  program 
was  delayed  and  the  subsequent  data  were  unsatisfactory.  Thus,  no  comparison 
data  exist.  The  data  obtained  which  are  closest  in  time  to  the  scheduled  data 
are  some  acquired  in  late  April  or  early  May  1978.  Conditions  at  the  target 
site  changed  dramatically  from  February  with  its  snow  cover  to  May  with  its 
water  cover.  Thus,  the  most  that  can  be  accomplished  with  these  reference 
scenes  is  a  visual,  subjective  comparison.  Flights  are  planned  for  the  1979- 
1980  winter;  the  results  of  these  tests  will  be  compared  with  simulated  results 
if  at  all  possible. 

1.3  Synopsis  of  the  Point  Scattering  Model 

The  PSM  has  been  developed  as  a  general  approach  to  the  problem  of  simu¬ 
lating  the  data  from  a  radar.  As  operational  radars  are  developed  in  different 
configurations,  so  has  the  PSM  been  developed  to  simulate  the  end-to-end 
response  of  different  radar  configurations. 

The  PSM  is  a  general  simulation  model  which  is  applicable  to  radars  in 
both  the  PPI  (Plan-Position  Indicator)  as  well  as  the  SLAR  (Side-Looking  Air¬ 
borne  Radar)  configuration.  One  ujage  of  the  PSM  which  has  been  developed 
represents  specialization  of  the  PPI  implementation  for  an  application  using 
simulated  radar  data  for  guidance  of  a  ballistic  missile  in  the  terminal  phase 
of  descent.  This  application  was  for  a  missile  which  employed  a  guidance  system 
incorporating  a  Correlatron.® 

The  Point  Scattering  Model  (PSM)  for  simulating  radar  data  has  been  developed 
and  implemented  on  a  digital  computer.  By  simulating  radar  data  is  meant 

6Klass,  P.J.,  "Guidance  Device  Set  for  Pershing  Tests,"  Aviation  Week  and 
Space  Technology,  12  May  1975. 


synthesis,  via  digital  computer,  of  the  data  which  would  have  been  recorded  by 
a  radar  flying  the  same  ground  track  over  the  prescribed  terrain  sites.  The 
radar  senses  the  reradiated  flux  from  the  ground  and  its  cover  in  the  micro- 
wave  portion  of  the  electromagnetic  spectrum  and  stores  the  results.  The 
radar  produces  an  output  proportional  to  the  reflectivity  characteristics  at 
a  fixed  wavelength  of  the  terrain  and  when  recorded  in  an  image,  displays  the 
terrain  in  fine  detail  and  with  spectacular  relief.  So  does  the  simulated 
radar  image  produced  via  the  PSM.  The  PSM  is  not  limited  to  simulating  images, 
it  is  viable  with  suitable  alterations  for  most  recording  formats. 

The  PSM  represents  the  radar,  the  ground  and  its  microwave  response,  and 
the  stored  data  by  a  closed-system  model.  The  model  rests  on  firm,  theoretical 
foundations  and  is  mathematically  rigorous.  It  incorporates  all  aspects  of 
the  radar  problem  starting  with  the  transmitter,  including  such  aspects  as 
the  antenna  during  transmission,  the  propagation  path  to  the  ground,  the  ground 
response,  the  return  data,  the  antenna  during  reception,  and  the  receiver  and 
concluding  with  data  storage  and  presentation.  The  PSM  has  been  tested  and 
validated  for  a  specific  class  of  radar  targets,  distributed  targets.* 

Just  as  all  mathematical  models  are  abstractions  of  reality,  so  is  the 
PSM.  It  attempts  to  describe  in  closed  form  the  processes  of  the  system  con¬ 
sisting  of  radar,  ground,  and  data  storage.  The  PSM  is  completely  general  and 
capable  of  synthesizing  data  having  a  desired  accuracy  if  the  cost  is  paid  in 
time,  complexity,  and  resources  expended.  But  the  true  value  of  the  PSM  arises 
from  the  ease  with  which  a  specific  implementation  can  be  tailored  or  specialized, 

★ 

As  used  throughout,  distributed  targets  are  areas  of  natural  terrain 
or  ground  cover  such  as  wheat  or  corn  fields,  grassy  expanses,  forests, 
plowed  ground,  paved  areas,  etc.,  which  are  approximately  homogeneous  and 
large  relative  to  a  radar  resolution  element. 
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to  take  advantage  of  simplifications  and  approximations  valid  for  a  specific 
application,  thereby  making  it  efficient  and  cost-effective  to  use. 


An  approach  has  been  developed  regarding  simulation  that  insures  all 
the  requisite  data  and  information  needed  to  simulate  the  response  of  a  specific 
radar  from  a  desired  ground  site  (target)  are  obtained.  This  approach  is 
illustrated  conceptually  in  Figure  1  as  the  PSM  simulation  implementation 
philosophy. 

The  PSM  implementation  philosophy  is  the  framework  which  identifies  the 
various  simulation  requirements  and  relates  these  to  one  another.  As  can  be 
seen  from  Figure  1,  three  (3)  basic  kinds  of  data  and  information  interact 
with  one  another  and  serve  as  inputs  to  the  simulation  computer  programs. 

These  are:  (1)  data  base,  (2)  reflectivity  data,  and  (3)  simulation  para¬ 
meters.  Upon  complete  specification  of  these,  the  simulation  computer  programs 
can  be  run  and  radar  data  can  be  simulated  for  the  system  being  modeled  as  if 
it,  the  radar,  were  flown  over  the  data  base  (i.e.,  the  ground  site). 

As  the  PSM  has  been  implemented  on  a  digital  computer,  its  required 
input  data  must  be  in  digital  form.  The  first  of  these  input  data  is  a  data 
base,  a  digital  replica  of  the  ground  in  the  target  area.  This  digital  repre¬ 
sentation  of  the  ground,  called  data  base  hereafter,  models  the  ground  and 
its  cover  in  the  desired  site  and  contains  a  facsimile  of  both  the  dielectric 
categories  present,  called  backscatter  categories,  as  well  as  the  geometric 
variations,  called  elevation  data.  The  data  base  is,  thus,  a  sampled  replica 

of  the  backscatter  categories  present  in  a  target  simulation  scene  (both 

* 

distributed  and  cultural  targets,  or  categories)  and  the  elevation  surface. 

As  used  here,  cultural  targets  are  targets,  such  as  buildings,  vehicles, 
etc.,  which  are  smooth  relative  to  radar  wavelengths  and  whose  backscatter 
properties  are  essentially  specular. 


A  data  base  typically  consists  of  a  digital  matrix  having  at  least  four  (4) 
dimensions:  two  (2)  for  the  spatial  location  of  each  point,  one  (1)  for  its 
elevation,  and  at  least  one  (1)  for  its  backscatter  category.  The  resolution 
built  into  a  data  base  is  determined  by  the  sampling  frequency  and  is  highly 
dependent  upon  such  factors  as  the  resolution  of  the  radar  system  being  simu¬ 
lated,  the  application  for  which  a  particular  data  base  is  required,  and  avail¬ 
able  time  and  resources. 


Within  a  target  site  numerous  different  types  of  vegetation  and  terrain 
cover  exist.  Some  of  these  are  distributed  targets  such  as  forests,  wheat 
fields,  grasslands,  highways,  runways,  water  bodies,  etc.,  and  some  are 
cultural  targets  such  as  buildings  and  vehicles.  Each  different  type  of  target 
is  modeled  as  a  different  backscatter  category  in  a  data  base.  Backscatter  cate¬ 
gory  is,  thus,  the  smallest  spatial  unit,  or  'field'  into  which  regions  having 
homogeneous  dielectric  properties  can  be  divided  commensurate  with  the  data  base 
resolution,  radar  system,  and  application. 

Also  within  a  target  site,  the  surface  of  the  ground  varies  in  relative 
height  from  point  to  point  above  a  datum  surface.  This  height  variation  from 
point  to  point  creates  unique  patterns  in  radar  data  which  must  be  modeled  for 
simulation  purposes.  Elevation  data  are,  as  the  name  suggests,  the  value  of 
the  relative  height  of  each  point  in  a  data  base.  The  resolution  of  elevation 
data  is  described  by  the  sampling  frequency  of  the  data  base  and  the  accuracy 
of  the  data  from  which  the  samples  are  obtained. 

A  ground  response  model  is  the  second  type  of  input  data  required  by 
the  PSM.  The  ground  response  model  normally  utilized  ir  the  PSM  to  reflect 
the  properties  of  each  of  the  different  types  of  ground  cover  identified  in 
the  target  site  and  included  in  the  data  base  is  backscatter,  the  differential 
scattering  cross-section  (ct°).  The  PSM  uses  a0  to  simulate  the  interaction 


between  the  ground  and  the  electromagnetic  energy  incident  from  the  radar, 
and  to  predict  the  percentage  of  reradiation  back  to  the  radar.  For  each 
different  ground  cover  type  specified  in  a  data  base  (called  backscatter 
category) ,  the  PSM  requires  a  set  of  a0  data,  either  experimental  or  theor¬ 
etical,  to  be  provided.  The  backscatter  data  used  to  make  the  sample  results 
presented  in  Section  5  are  discussed  in  Section  4. 

The  PSM  requires  input  of  system  parameters,  storage  parameters,  and 
ground  track  information.  These  data  are  required  to  modify  the  computational 
algorithms  of  the  PSM  so  they  reflect  the  desired  system  and  storage  para¬ 
meters  and,  in  addition,  are  required  so  that  the  computational  algorithms  can 
be  simplified  to  increase  efficiency  and  cost  effectiveness.  They  are  also 
used  to  specify  key  parameters  pertinent  to  this  data  base  and  its  construction, 
such  as  resolution,  orientation,  etc.  Finally,  these  data  are  used  to  specify 
the  flight-line  parameters  which  allow  determination  of  altitude,  angles  of 
incidence,  and  thus  the  geometrical  aspects  of  the  simulation  problem. 

Upon  satisfaction  of  all  input  data  requirements  shown  in  Figure  1,  the 
computational  algorithms  of  the  PSM  are  invoked  to  simulate  the  response  of  a 
desired  radar  flying  a  particular  flight  line  over  a  specified  portion  of 
ground.  The  geometrical  relationships  between  the  location  and  orientation 
of  the  simulated  radar  and  its  platform  and  each  point  in  the  data  base  are 
solved  with  such  effects  as  foreshortening,  layover,  shadow,  look-direction, 
ect.,  being  treated.  Upon  solution  of  this  geometry,  the  PSM  predicts  the  amount 
of  power  reradiated  from  each  point  in  the  data  base  back  to  the  receiving 
antenna  by  finding  the  backscatter  category  of  each  point  and  solving  the 
functional  form  of  the  appropriate  backscatter  data  for  the  conditions  at  each 
point.  The  resulting  calculations  are  further  refined  to  account  for  reception, 
detection,  and  storage  of  the  power  from  each  point,  and  the  data  output  from  the 
PSM  are  stored  on  computer-compatible  digital  magnetic  tapes. 


1.4  Theoretical  Development  of  the  PSM 


The  theoretical  development  of  the  PSM  has  been  reported  previously  ’ 
and,  thus,  it  will  not  be  repeated  here. 

1.5  PSM  Simulation  Implementation  Philosophy 

A  philosophy  has  been  developed  regarding  simulation  that  insures  all 
the  requisite  data  and  information  needed  to  simulate  the  response  of  a 
specific  radar  from  a  desired  ground  site  (target)  are  obtained.  This 
philosophy  is  illustrated  conceptually  in  a  previous  figure  (see  Figure  1) 
as  the  PSM  simulation  implementation  philosophy. 

As  can  be  seen  from  Figure  1,  three  (3)  basic  kinds  of  data  and  infor¬ 
mation  interact  and  serve  as  inputs  to  the  simulation  computer  programs. 
These  are,  starting  with  the  one  which  should  be  specified  first:  (1) 
simulation  parameters;  (2)  data  base;  and  (3)  reflectivity  data.  Important 
ramifications  of  each  of  these  areas,  interactions  between  them,  and  addi¬ 
tional  discussions  explaining  how  some  of  the  details  can  be  solved  are 
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presented  in  succeeding  sections.  In  Section  1.5.1  simulation  parameters 
are  discussed.  In  Section  1.5.2  simulation  data  base  and  the  underlying 
philosophy  are  related.  In  Section  1.5.3  reflectivity  data  for  simulation 
are  presented. 

After  all  three  kinds  of  input  data  are  specified,  the  simulation  com¬ 
puter  programs  can  be  invoked  and  radar  data  can  be  simulated  for  the  sys¬ 
tem  being  modeled.  The  computer  programs  solve  the  geometrical  relation¬ 
ships  between  the  position  of  the  simulated  radar  and  the  ground  (i.e., 
each  point  in  the  data  base)  for  determining  such  parameters  as  resolution 
and  local  angle  of  incidence.  The  computer  programs  are  structured  so  as 
to  model  such  propagation  effects  as  layover,  shadow,  etc.  Software  is 
discussed  in  Section  1.6. 

1.5.1  Simulation  Parameters 

Simulation  parameters  are  all  those  parameters  of  the  imaging  process 
required  for  specializing  the  PSM  for  one  radar,  desired  ground  sites, 
and  pertinent  flight  paths  over  those  sites.  Table  1  is  a  sample  listing 
only,  and  is  provided  for  reference  to  suggest  what  is  meant  by  "simulation 
parameters. 11 

As  can  be  seen  by  reference  to  the  table,  simulation  parameters  are 
listed  according  to  three  (3)  headings.  The  first  of  these,  "Radar  Systems 
Parameters,"  lists  the  various  radar  parameters  which  must  be  obtained  so 
that  the  data  base,  o°  data,  and  computer  programs  can  be  specialized  for 
a  particular  radar  system.  The  second  listing  of  simulation  parameters, 

"Flight  Path  Parameters,"  is  required  so  that  the  desired  data  base  can  be 
constructed,  so  that  a0  data  for  seasonally  varying  ground  cover  types  can 
be  obtained,  and  so  that  simulated  data  can  be  produced  having  the  correct 
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TABLE  1:  SIMULATION  PARAMETERS 


SYMBOL  DESCRIPTION  POTENTIAL  IMPACT 

Radar  System  Parameters 


X 

Wavelength 

1,2,3 

- 

Polarization 

1,2 

G 

Antenna  pattern  factor  in  range  direction 

1,3 

6 

Antenna  azimuth  beamwidth 

1,3 

T 

Pulse  length 

1,3 

- 

Scan  format  (i.e.,  PPI  or  SLAR) 

1,3 

M 

Receiver  transfer  function 

3 

Q 

Analog-to-digital  converter  transfer  function 

3 

S 

Data  processing  effects 

3 

Y 

Slope  of  the  linear  portion  of  film  curve  or 
density  versus  logarithm  of  exposure 

3 

K 

Intercept  point  of  line  having  slope,  y 

3 

N 

Number  of  "independent  samples" 

3 

L 

Real  antenna  length 

1,3 

BC 

Total  system  bandwidth 

3 

B 

Resolution  bandwidth 

3 

eN 

Near-range  edge  of  swath  angle-of-incidence 

3 

0F 

Far-range  edge  of  swath  angle-of-incidence 

3 

Fliqht 

Path  Parameters 

h 

Altitude  above  a  mean  surface 

1,3 

- 

Latitude  and  longitude  of  target  area 

1 

1  Data  base 

2  Reflectivity  data 

3  Computer  programs 
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TABLE  1:  SIMULATION  PARAMETERS  (continued) 


SYMBOL  DESCRIPTION 
Direction  of  flight 
Season  and  meteorological  conditions 
LyLR  Atmospheric  losses 
Application  and  Simulation  Parameters 


Intended  use  of  simulations  for  deter¬ 
mining  degree  of  accuracy  required  in 
specification  of  various  parameters  and 
transfer  functions 

n  Number  of  bits  in  the  output  computer  word 

m  Signal  dynamic  range  which  is  to  be  in  the 

final  simulated  radar  data 

IMIN>  (  Intensity  calibration  data 

^C’  !C  ) 

PRC»  GR£  Density  calibration  data 


POTENTIAL  IMPACT 

1.3 

1.2.3 
3 


1,2,3 


3 

3 

3 

3 


1  Data  base 

2  Reflectivity  data 

3  Computer  programs 
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orientation,  scale  and  radar  effects  such  as  layover  and  shadow.  The 
third  listing,  "Application  and  Simulation  Parameters,"  is  required  for 
maximum  specialization  of  the  PSM  to  the  application. 

From  Figure  1  and  Table  1,  it  can  be  seen  that  the  simulation  para¬ 
meters  interact  with  the  simulation  phases  labeled  data  base,  o°  data, 
and  simulation  computer  programs.  These  data  are  normally  specified  first, 
and  the  other  phases  of  simulation  follow. 

Upon  specification  of  these  parameters,  construction  tan  begin  on  the 
data  base  if  a  new  one  is  required.  The  location  on  the  Earth,  orienta¬ 
tion,  and  size  of  the  data  base  will  have  been  specified.  The  resolution 
for  which  the  data  base  will  be  constructed  will  have  been  determined. 

Ground  cover  differentiation  criteria  will  have  been  devised  (i.e.,  cri¬ 
teria  defining  how  to  differentiate  between  important  and  unimportant 
ground  cover  types  will  have  been  developed  which,  for  example,  will  allow 
constructing  a  data  base  having  ground  cover  type  boundaries  appropriate,  e.g., 
for  a  16  GHz,  HH  polarization,  50  meter  radar).  Thus,  important  conditions 
for  the  data  base  will  have  been  established  and  work  can  begin  for  con¬ 
structing  it. 

Specification  of  these  simulation  parameters  is  necessary,  also,  for 
the  a0  data,  the  second  phase  of  interaction  shown  in  Figure  1.  The 
specification  of  frequency,  polarization,  angular  range,  season,  and 
meteorological  conditions  together  with  the  ground  cover  type  identified 
in  the  data  base  label  which  a0  data  are  needed. 

The  PSM  simulation  computer  programs  can  be  specialized  and  modified 
upon  specification  of  the  simulation  parameters.  Simplifying  approximations 
can  be  made  for  various  aspects  of  the  model  such  as  for  the  receiver  func¬ 
tion,  where  appropriate.  Appropriate  transfer  functions,  the  antenna 
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pattern,  system  parameters,  etc.,  can  be  written  into  the  simulation  com¬ 
puter  programs.  Data  handling  simplifications  can  be  designed  either  to 
reduce  the  cost  of  simulation,  or  to  make  simulation  feasible,  as  from  very 
large  data  bases. 

The  uses  to  which  the  simulation  parameters  are  put  have  just  been 
sketched  out.  This  has  not  been  an  exhaustive  discussion  of  how  they 
interact  for  the  details  of  interaction  are  system  and  application  special. 
The  intent  here  was  to  suggest  what  kinds  of  information  are  needed,  how 
this  information  interacts  with  various  phases  of  simulation,  and  how  sim¬ 
plifications  can  result  from  prudent  use  of  the  information. 

1.5.2  Data  Base 

A  data  base  is  a  digital  replica  of  the  ground,  model ing  its  topography 
and  cover.  A  specific  data  base  will  contain  a  symbolic  representation  of 
the  dielectric  categories  present  as  different  ground  cover  types,  or  back- 
scatter  categories,  as  well  as  the  elevation  surface  of  a  specific  site. 

The  data  base  is,  thus,  a  sampled  replica  of  the  backscatter  categories  pre¬ 
sent  in  a  target  simulation  scene  and  the  elevation  surface.  Development 
of  a  data  base  for  radar  simulation  of  winter  scenes  is  summarized  in  Section 
2. 

A  data  base  typically  consists  of  a  digital  matrix  having  at  least 
four  (4)  dimensions:  two  (2)  for  the  spatial  location  of  each  point,  one  (1) 
for  its  elevation,  and  at  least  one  (1)  for  its  microwave  reflectivity 
category.  More  than  four  (4)  dimensions  will  be  required  for  a  data  base 
when  seasonal  and  meteorological  variations  are  to  be  simulated.  The 
finest  resolution  which  can  be  built  into  a  data  base  is  determined  by  the 
ground  spot  size  each  matrix  element  represents  and  is  highly  dependent  upon 
such  factors  as  the  resolution  of  the  radar  system  being  simulated,  the 


application  for  which  a  particular  data  base  is  required,  and  available 
time  and  resources. 

Accurate  construction  of  a  data  base  is  crucial  to  the  overall  simu¬ 
lation  effort.  The  final,  simulated  radar  data  can  be  no  better  than  the 
data  base  and,  frequently,  it  is  a  degraded  form  of  it.  At  one  extreme 
there  is  a  one-to-one  mapping  of  data  base  elements  into  radar  resolution 
cells  and  on  the  other  extreme  is  a  many-to-one  mapping.  Most  cases  of 
radar  simulation  fall  between  these  extremes  with,  perhaps,  four  (4)  to 
twenty-five  (25)  data  base  elements  mapped  into  a  single  radar  resolution 
cell . 

Regardless  of  how  many  data  base  elements  map  into  a  resolution  cell, 
the  crucial  element  is  the  inherent  accuracy  of  the  data  base;  the  accuracy 
built  into  the  data  base.  This  question  of  accuracy  extends  both  to  model- 
ipg  the  spatial  distribution  of  ground  cover  types,  distributed  targets, 
as  well  as  to  specifying  the  elevation  surface,  elevation  data.  Accuracy 
of  modeling  the  spatial  distribution  of  ground  cover  types  is  a  dual  problem. 
First,  one  must  decide  the  smallest  size  of  distributed  target  which  will 
be  uniquely  identified  as  a  homogeneous  region  in  the  data  base.  Second,  one 
must  correctly  interpret  the  source  intelligence  data  from  which  the  data 
base  is  built  for  determination  of  what  kind  of  ground  cover  exists  within 
each  distributed  target.  Accuracy  of  specifying  the  elevation  surface  is 
also  a  dual  problem.  First,  one  must  find  a  Nyquist  sampling  interval  from 
the  maximum  rate-of-exchange  of  elevation  in  the  area  of  interest  and  then 
relate  this  sampling  interval  to  that  required  by  the  radar  and  applications. 
Second,  one  needs  to  determine  the  underlying  accuracy  of  the  source  elevation 
data  which  are  to  be  used. 
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There  are  several  sets  of  criteria  which  interact  to  establish  the 
sampling  frequency  of  the  ground  and  topography  and,  thus,  the  ground  spot 
size  each  data  base  element  represents:  (1)  the  matters  of  accuracy  just 
discussed,  (2)  questions  of  resolution  from  the  standpoints  of  both  the 
radar  system  and  the  application  (these  data  are  determined  from  Table  1), 
and  (3)  economic  considerations  raised  by  the  amounts  of  resources  available 
to  construct  a  data  base  and  to  produce  simulations  from  it.  The  intersection 
of  these  sets  of  criteria  probably  represents  the  best  choice  which  can  be 
made  for  sampling  frequency  and  accuracy  in  a  data  base.  If  the  sets  are 
non-intersecting,  then  the  decision  must  be  made  on  another  basis. 

After  determination  of  the  sampling  frequency  and  accuracy  for  which 
a  data  base  is  to  be  constructed  of  a  specific  site,  work  on  building  it 
can  begin.  Data  bases  are  typically  built  by  hand  from  various  sources  of 
intelligence  data  such  as  high  resolution  aerial  photographs,  etc.  A 
radar/photo-interpreter  (PI)  acquires  the  necessary  intelligence  data  and 
employs  manual  cartographic  feature  extraction  techniques  to  interpret  the 
source  data  and  to  develop  the  data  base. 

The  PI  draws  a  map  by  hand  on  a  stable-base  drawing  media.  This  map 
consists  of  boundary  lines  separating  different  features  and  ground  cover 
types.  Boundaries  of  major  features  either  can  be  traced  or  transferred 
from  the  source  data,  or  both.  Boundaries  of  minor  features  are  difficult 
to  locate  and  are,  therefore,  obtained  via  subjective  interpretation  criteria 
employed  by  the  PI.  These  interpretation  criteria  are  normally  developed 
through  experience  and  established  to  meet  the  appropriate  requirements 
levied  in  Table  1.  The  construction  of  this  hand-drawn  data  base  map  is  a 
major  effort  if  the  desired  resolution  and  accuracy  is  modest  or  better 
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(less  than  50  meters)  for  a  target  site  of  minimal  size  (i.e.,  even  for  one 
of  approximately  50  square  kilometers).  The  resolution  of  the  map  depends 
upon  the  judgment  of  the  PI,  his  knowledge  of  the  target  site,  and  his  famil¬ 
iarity  with  ground  cover  and  feature  types  found  in  a  site. 

When  the  hand-drawn  data  base  map  has  been  finished,  it  is  a  symbolic 
line  drawing  of  the  boundaries  separating  distributed  targets  (such  as 
forests  and  fields)  and  the  locations  of  cultural  targets  (such  as  buildings 
and  roads).  For  use  on  a  computer,  this  line  drawing  must  be  digitized  and 
converted  into  a  completely  specified  matrix. 

A  large  table  digitizer*  has  been  used  in  the  past  to  digitize  the 
boundary  lines  in  the  data  base  map  and  to  store  these  digital  data  on  computer- 

o 

compatible  magnetic  tape  .  A  human  operator  traces  each  boundary  with 
the  cursor,  and  the  computer  interfaced  to  the  table  periodically  samples 
and  records  the  position  of  the  cursor.  After  digitization--a  long,  time- 
consuming  task  subject  to  countless  errors--a  computer-compatible  magnetic 
tape  (or  multiple  such  tapes)  contain  the  sampled  points  stored  consecutively, 
serially,  of  each  boundary  in  the  original  data  base  map.  These  serial  digi¬ 
tal  boundary  data  next  must  be  expanded  into  a  completely  specified  matrix. 

Special  software  have  been  developed  to  convert  the  serial  digital 
boundary  data  into  a  completely  specified  matrix.  The  task  is  to  sort  the 
boundary  data  by  their  X-  and  Y-values  and  to  fill-in  the  matrix.  If  it  would 


*A  large  table  digitizer  is  here  meant  to  be  a  table  having  a  top 
surface  one  (1)  by  one  and  one-half  (1%)  meters,  or  more  and  having  an 
underlying  find  grid  of  wires  (i.e.,  75  per  centimeter).  A  cursor  is 
used  to  trace  drawings  on  the  top  surface  with  electric  fields  identi¬ 
fying  the  intersecting  pair  of  wires  the  cursor  passes  over. 

g 

McNeil,  M. ,  V.H.  Kaupp,  and  J.C.  Holtzman,  "Digitization  of  Pick¬ 
wick  Site  Data  Base,"  Remote  Sensing  Laboratory  Technical  Report,  RSL  TR 
319-4,  University  of  Kansas  Center  for  Research,  Inc.,  February  1977. 
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be  possible  to  assume  that  the  digitized  boundary  data  are  error-free  this 
task  would  not  be  difficult.  Unfortunately,  the  digitized  boundary  data 
are  subject  to  many  errors.  Both  the  human  operator  and  the  table  and 
computer  interfaces  are  sources  of  errors.  Human  errors  range  from  inac¬ 
curacy  of  following  lines  with  the  cursor  to  completely  missing  boundaries, 
from  incorrectly  identifying  each  boundary  to  failing  to  identify  some 
boundaries,  and  from  tracing  boundaries  in  the  wrong  direction  to  incorrectly 
registering  the  map,  setting-up  the  coordinate  system,  and  specifying  the 
scale.  Computer-generated  errors  ranqe  the  complete  gamut  from  scrambling 
the  data  to  failing  to  operate.  The  multitude,  variety,  and  complexity  of 
errors  in  the  digitized  boundary  data  means  this  task  requires  a  lot  of 
interaction  between  man  and  machine  because  it  isn't  feasible,  normally, 
to  develop  software  "smart"  enough  to  check  for  every  error  and  correct  for 
them  in  a  single  pass  through  the  data.  The  software  package  to  facilitate 
this  and  produce,  ultimately,  a  completely  specified  data  base  matrix  is 
described  in  Section  3. 

At  the  completion  of  this  activity,  the  hand-drawn  data  base  map  has 
been  converted  into  a  digital  matrix.  The  data  stored  in  each  cell  of  this 
matrix  is  the  data  base  information  concerning  the  backscatter  category  of 
each  spot  on  the  ground.  Each  cell  implicitly  represents  the  location 
(X-  and  Y-location)  of  a  ground  spot  relative  to  the  known  corner  points 
and  represents  the  ground  spot  size  via  the  sampling  frequency  by  which  the 
data  base  was  built,  and  explicitly  specifies  the  backscatter  category  of 
each  point.  If  seasonal  or  meteorological  data  are  to  be  included  in  the 
data  base,  they  have  been  added  in  the  past  by  drawing  a  separate  seasonal 
data  base  map,  digitizing  it,  and  juxtaposing  these  data  into  the  category 
data. 

1C 


Last,  digital  elevation  data  of  the  target  site  must  be  obtained  and 
merged  with  the  category  data  base.  To  this  point,  digital  elevation  data 
have  been  provided  by  various  sponsors,  thus,  development  work  on  this  task 
has  not  been  undertaken.  The  elevation  data  provided  to  date  have  come 
from  DMA  (Defense  Mapping  Agency)  and  have  been  produced  either  from  stan¬ 
dard  7H'  quadrangle  USGS  maps  (United  States  Geologic  Survey)  via  suitable 

0 

digitizing  and  interpolation  techniques  or  from  stereoscopic  photo-pairs 
and  the  UNAMACE^®  system.  In  either  case,  the  work  performed  here  has 
been  limited  to  merging  elevation  data  from  different  computer-compatible 
magnetic  tapes  with  the  category  digital  data  base. 

Merging  of  the  elevation  data  with  the  category  data  on  a  single  com¬ 
puter-compatible  magnetic  tape  completes  the  task  of  constructing  a  data 
base  of  a  specific  site.  Assuming  that  all  problems  encountered  have  been 
either  solved  or  safely  skirted,  this  tape  contains  a  data  base  of  a  specific 
site  at  a  desired  scale,  resolution,  and  accuracy,  and  this  data  base  is 
ready  for  input  to  the  simulation  computer  programs. 

1.5.3  Reflectivity  Data 

After  specification  of  key  simulation  parameters  in  Table  1  (e.g., 
frequency  and  polarization)  and  after  identification  of  the  different  back- 
scatter  categories  during  data  base  construction,  then  reflectivity  data 
(a0,  or  backscatter  data)  can  be  obtained.  Reflectivity  data  are  used  in 


g 

McNeil,  M.,  V.H.  Kaupp,  and  J.C.  Holtzman,  "Digital  Elevation  Data 
Base  Construction:  Pickwick  Site,"  Remote  Sensing  Laboratory  Technical 
Report,  RSL  TR  319-3,  University  of  Kansas  Center  for  Research,  Inc., 
Lawrence,  Kansas,  July  1976. 

10Bertram,  S.,  "The  Universal  Automatic  Map  Compilation  Equipment," 
Photogramme trie  Engineering  and  Remote  Sensing,  Vol.  31,  No.  2,  March  1965. 
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the  PSM  to  model  the  radar  and  ground  interaction.  The  reflectivity  data 
normally  used  in  the  PSM  are  backscatter,  the  differential  scattering 
cross-section  (o°).  The  PSM  uses  either  experimental1,11,12  or  theoreti¬ 
cal13’^4  data  to  simulate  the  interaction  between  the  ground  and  the 
electromagnetic  energy  incident  from  the  radar,  and  to  predict  the  percen¬ 
tage  of  reradiation  back  to  the  radar.  For  each  different  ground  cover  of 
feature  type  specified  in  a  data  base,  the  PSM  requires  a  set  of  o°  versus 
angle-of-incidence  (a  function  of  frequency  and  polarization),  either 
experimental  or  theoretical  to  be  input.  The  different  ground  cover,  or 
categories  specified  in  a  data  base  can  be  classified  into  three  (3)  sets: 
(1)  distributed  targets;  (2)  cultural  targets;  and  (3)  seasonal  or  meteor¬ 
ological  targets.  Reflectivity  data  used  in  simulating  radar  responses 
for  winter  scenes  are  discussed  in  Section  4. 


Cosgriff,  R.L.,  W.H.  Peake,  and  R.C.  Taylor,  "Terrain  Scattering 
Properties  for  Sensor  System  Design,"  Engineering  Experiment  STation 
Bulletin,  181,  Vol.  29,  Ohio  State  University,  Columbus,  Ohio,  May  1960. 

^Bush,  T.F.  and  F.T.  Ulaby,  "Fading  Characteristics  of  Panchromatic 
Radar  Backscatter  from  Selected  Agricultural  Targets,"  IEEE  Transactions 
on  Geoscience  Electronics.  Vol.  GE-13,  October  1976,  pp.  149-157. 

12  Ulaby,  F.T.  et  al_.,  "Radar  Response  to  Vegetation,"  IEEE  Transactions  on 
Antennas  and  Propagation.  Vol.  AP-23,  No.  1,  January  19/b,  pp.  36-45,  and 
"Radar  Response  to  Vegetation  II:  8-18  GHz  Band,"  IEEE  Transactions  on 
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13  Hevenor,  R.A.,  "Backscattering  of  Electromagnetic  Waves  from  a 
Surface  Composed  of  Two  Types  of  Surface  Roughness,"  TR  ETL-TR-71-4, 

Engineering  Topographic  Laboratories,  The  United  States  Army,  Fort  Belvoir, 
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Distributed  targets  are  those  areas  which  can  be  characterized  by  a 

differential  scattering  coefficient;  this  implies  that  the  scattered,  returned 
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energy  is  composed  of  many  returns  whose  phases  are  independent.  Each 
homogeneous  region  must  be  of  a  size  that  will  provide  a  large  number  of 
scattering  centers  which  are  randomly  located  within  it.  When  these  conditions 
are  satisfied,  an  average  value  of  the  differential  scattering  cross-section 
(a0)  can  be  used  to  model  the  radar  return  from  distributed  targets.  Most 
ground  cover  types  located  in  data  bases  made  to  date  satisfy  these  criteria 
reasonably  well,  thus,  ct°  data  were  used  to  model  the  radar  and  ground  inter¬ 
action. 

Cultural  targets  are  defined  within  the  context  of  radar  simulation  to 
be  man-made  objects.  Their  radar  returns  are  characterized  by  the  high  pro¬ 
bability  of  specular  reflection,  which  is  obviously  dependent  upon  the  con¬ 
struction  geometry,  orientation  with  respect  to  the  radar  platform,  antenna 
beamwidth,  and  system  resolution.  The  fact  that  radar  returns  from  cultural 
targets  are  so  highly  dependent  upon  orientation,  and  the  fact  that  they  do 
not  ordinarily  satisfy  the  criteria  listed  in  the  previous  paragraph  illustrate 
why  a0  data  for  cultural  targets  are  not  usually  obtainable  and  why  cultural 
targets  are  not  readily  applicable  to  digital  simulation. 

An  alternate  means  of  indicating  the  existence  of  a  cultural  target  in 
simulated  radar  data  via  the  PSM  has  been  utilized  in  the  past,  symbolic  repre¬ 
sentation.  In  this  representation,  the  cultural  target  is  modeled  as  an 
isotropic  radiator  of  X  decibels.  Thus,  for  any  flight  path  and  data  base 
orientation,  the  cultural  target  is  modeled  as  behaving  the  same. 

15Moore,  R.K.,  in  The  Radar  Handbook  (M.I.  Skolnik,  Ed.),  McGraw-Hill, 

New  York,  1970. 
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If  this  symoblic  representation  is  not  good  enough,  directional 
dependence  can  be  introduced  by  specifying  one  or  more  directions  rela¬ 
tive  to  true  North  in  which  the  cultural  target  is  specular.  This  can  be 
accomplished  with  a  minimal  increase  in  simulation  complexity  and  cost, 
minimal  relative  to  complete,  accurate  specification  of  each  building, 
its  geometry,  corners,  etc. 

Seasonal  or  meteorological  targets  are  defined  here  to  mean  the  changes 
introduced  in  a  data  base  to  account  for  the  perturbations  introduced  by 
adding  seasonal  or  weather  effects.  The  normal  category  data  base  repre¬ 
sents  a  snap-shot  of  the  target  site.  The  seasonal  or  meteorological  data 
base,  as  discussed  in  Section  2,  is  one  way  of  allowing  the  target  site  to 
mature  with  time.  Normally,  complex  models  can  be  developed  or  possibly 
found  in  the  literature  which  predict  the  functional  dependence  of  the 
underlying  category  in  a  desired  altered  state,  altered  by  season  or 
weather.  Some  simulations  have  been  produced  from  a  single  data  base  which 
represent  different  times  of  the  year.  These  are  shown  in  Section  5. 

Upon  obtaining  the  requisite  reflectivity  data,  the  work  preliminary 
to  simulating  radar  data  is  finished.  The  computer  programs  have  been 
specialized,  the  data  base  produced,  and  the  reflectivity  data  obtained. 

It  remains  only  to  enter  these  data  into  a  computer  and  produce  desired 
simulations. 

1.6  Synopsis  of  Computer  Programs 
1.6.1  Introduction 

As  shown  previously  in  Figure  1,  the  PSM  computer  programs  can  be 
utilized  to  form  simulated  radar  data  only  after  satisfaction  of  the  three 
(3)  input  requirements  for  simulation  parameters,  data  base,  and  reflectivity 
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data.  The  final  computational  algorithms  of  the  PSM  simulation  do 
not  represent  the  complete  model.  These  algorithms,  or  modifications  of 
them  are  invoked  to  produce  final,  desired  results  only  after  all  the 
geometrical  relationships  between  radar  and  ground  spot  (resolution  ele¬ 
ment)  have  been  solved  and  after  all  the  propagational  phenomena  have  been 
properly  treated.  These  geometrical  and  propagational  considerations  are 
treated  in  the  data  handling  and  radar  effects  modeling  which  have  been 
designed  into  a  specific  software  realization  of  the  PSM. 

In  general,  geometric  effects  such  as  radar  resolution  size,  local 
angle  of  incidence,  range,  etc.  and  propagational  phenomena  such  as  shadow, 
layover,  compression,  etc.  are  treated  explicitly  by  the  software.  They 
are  developed  from  such  considerations  as  the  flight  path  parameters,  and 
the  ground  topography  modeled  in  the  data  base. 

The  general  PSM  computer  software  and  all  specializations  incorporate 
the  same  data  processing  philosophy.  This  philosophy  requires  the  data 
base  to  be  stored  on  computer- compatible  digital  magnetic  tape  (CCT)  as  a 
matrix  developed  in  a  rectangular  coordinate  system.  The  first  step  for 
the  PPI  implementations  is  conversion  of  this  data  base  from  rectangular 
to  polar  coordinates  (SLAR,  of  course,  uses  the  rectangular  coordinate 
sys tern). 

The  simulation  computer  programs  are  structured  into  two  separate 
phases.  The  first  phase  accepts  the  CCT  containing  the  data  base  and  cal¬ 
culates  all  the  geometrical  and  propagational  effects.  This  phase  predicts 
the  power  for  each  point  in  the  data  base  from  the  geometrical  data  and 
stores  the  power  data  on  an  interim  CCT.  The  second  phase  incorporates  the 
resolution  aspects  of  the  system  being  modeled  and  combines  the  predicted 
power  for  the  appropriate  numbers  of  data  base  points  into  each  radar 
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resolution  cell.  Finally,  it  converts  the  power  predicted  for  each  radar 
resolution  element  into  the  appropriate  grey- tone  value  for  each  pixel 
(picture  element)  in  the  output  image,  and  stores  the  results  on  a  CCT. 

If  the  application  being  simulated  is  a  PPI  radar,  then  the  next  func¬ 
tion  performed  is  conversion  from  polar  coordinates  back  into  rectangular 
coordinates.  In  either  case,  the  final  results  are  stored  on  an  output  CCT 
in  a  raster  scan  format  for  evaluation  on  a  visual  system  such  as  a  VDI*. 

This  philosophy  is  developed  in  a  little  more  detail  in  the  following 
section  for  one  PPI  implementation. 

1.6.2  PPI  Software  Realization  of  PSM 

A  PPI  is  a  forward  sector  scanning,  real-aperture  radar  employing  a 
scanning  antenna.  PPI's  have  historically  been  used  as  "forward-looking" 
sensors  for  USAF  (U.S.  Air  Force)  aircraft  in  the  general  roles  of  terrain- 
avoidance,  nagivation,  guidance,  and  in  addition,  in  specialized  roles. 

The  geometry  of  a  PPI  radar  is  illustrated  in  Figure  2. 

As  shown  in  Figure  2,  the  PPI  radar  is  mounted  so  as  to  illuminate  the 
ground  in  a  sector  forward  of  the  aircraft.  The  antenna  of  a  PPI  radar 
rotates  (or  electronically  scans)  a  vector  of  the  ground  in  front  of  the 
aircraft.  For  example,  starting  at  45°  to  the  right  of  the  flight  path  the 
antenna  rotates  while  illuminating  the  ground  across  a  90°  sector  to  45°  to 
the  left  of  the  flight  path.  Other  sectors  can  be  scanned.  During  the 
time  the  antenna  is  rotating  across  the  desired  sector  of  ground,  the  radar 
transmits  pulses  of  electromagnetic  energy  to  the  ground  at  a  high  rate, 
or  PRF  (Pulse  Repetition  Frequency).  Each  pulse  illuminates  the  ground  from 

*VDI  is  a  Video  Digital  Interface  System  manufactured  by  Interpretation 
Systems,  Incorporated,  Lawrence,  Kansas. 
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the  near  range  to  the  far  range  in  a  narrow  swath  as  confined  by  the  direc¬ 
tional  properties  of  the  antenna.  The  return  signal  from  each  pulse  is  pro¬ 
cessed  versus  time  and  is  input  to  a  CRT  (Cathode  Ray  Tube)  where  it  is  used 

to  intensity  modulate  the  electron  beam  as  it  sweeps  across  the  face  of  the 

CRT.  The  sweep  of  the  CRT  is  synchronized  with  the  rotation  rate,  or  scan 
rate  of  the  antenna.  Thus,  for  each  pulse  transmitted,  the  antenna  moves  a 
little  so  that  the  pulse  illuminates  a  slightly  different  ground  swath  than 
preceeding  pulses,  and  the  electron  beam  of  the  CRT  is  incrementally  repo¬ 
sitioned  in  synchronization  with  the  motion  of  the  antenna.  In  this  way,  a 
radar  image  is  built-up  pulse-by-pulse  and  sweep-by-sweep.  This  summarizes 
the  operation  of  a  PPI  radar  and  describes  the  phenomena  being  modeled  by 
a  PPI  software  implementation  of  the  PSM.  Theoretical  analyses  of  a  PPI 
radar  can  be  found  in  the  literature16,17. 

One  specific  software  realization  of  the  PSM  is  described  in  this  sec¬ 
tion.  The  software  realization  described  is  of  a  general  PPI  radar  and  a 
specialization  for  a  terminal  guidance  application  as  previously  mentioned. 
Details  of  the  guidance  specialization  are  reported  in  Appendix  C.  The  goal 
of  this  section  is  to  describe  the  basic  functions  of  the  set  of  computer 
programs.  A  FORTRAN  listing  of  the  programs  is  also  provided  in  Appendix  C. 
In  addition,  the  discussion  is  set  in  the  context  of  the  flow  of  data, 
from  start  to  finish.  Figure  3  illustrates,  in  block  diagram  form,  how 
the  separate  pieces  fit  together  and  the  interactions  that  occur  between  them 
when  using  these  computer  programs  to  simulate  radar  data. 


16 

Skolnik,  M.I.,  (Editor),  Radar  Handbook,  Moore,  R.K.,  "Ground  Echo," 
New  York:  McGraw-Hill,  1970. 

17Moore,  R.K.,  "Microwave  Remote  Sensors,"  in  R.G.  Reeves,  Remote 
Sensing  Manual,  Falls  Church,  Virginia,  American  Society  of  Photograirmetry , 
Chapter  9,  1975. 
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Figure  3  shows  the  flow  of  data,  from  start  to  finish,  when  forming  a 


simulated  PPI  radar  image.  The  left  side  of  Figure  3  illustrates  where  the 
data  comes  from  and  the  right  side  where  it  goes.  The  central  portion  of 
the  figure  shows  the  computer  programs. 

As  can  be  seen  from  Figure  3,  the  PPI  realization  of  the  PSM  is  for 
a  digital  computer.  Three  (3)  separate  computer  programs  (separate  accord¬ 
ing  to  function)  must  be  run  sequentially  in  order  to  form  simulated  radar 
data.  The  first  of  these  computer  programs  (POLAR  CONVERSION)  converts  a 
rectangular  ground  data  base  matrix  into  a  polar  radar  data  base  array  as 
dictated  by  the  desire  to  simulate  a  polar-scanning  radar  (PPI).  The 
second  computer  program  (REFERENCE  SCENE)  accepts  the  polar-form  radar 
data  base  from  the  first,  solves  all  the  complicated  geometrical  relation¬ 
ships  between  the  radar  and  each  resolution  element  on  the  ground,  computes 
the  power  returned  from  each  resolution  element  to  the  radar,  incorporates 
the  appropriate  antenna  correlation  function  between  resolution  elements, 
and  produces  an  output  array  of  image  density  values  (called  greytones). 

The  third  program  (RECTANGULAR  CONVERSION)  converts  the  array  of  greytones 
which  were  output  from  the  second  program  in  a  polar  array  into  a  rectangular 
grid  matrix  having  either  a  format  compatible  w’th  viewing  the  finished  simu¬ 
lation  for  evaluation  purposes  or  a  format  compatible  with  the  Correlatron* 
test  equipment.  Communication  between  programs  is  accomplished  via  computer- 
compatible  magnetic  tapes.  These  tapes  contain  intermediate  products  and 
only  serve  as  temporary  storage  either  for  error  analysis  or  for  input  to 
the  next  program,  thus  their  formats  will  not  be  discussed  here. 

Further  discussion  of  computer  programs  is  contained  in  Appendix  B. 


♦Correlatron  is  the  name  of  a  two-dimensional  cross-correlation  measur¬ 
ing  device  manufactured  by  Goodyear  Aerospace. 


2.0  PRODUCTION  OF  SURFACE  FEATURE  OVERLAYS  FOR  USE  IN  THE  SIMULATION  OF 


A  data  base  was  constructed  for  a  target  site  centered  on  Watertown, 


New  York,  from  which  any  season  and,  especially,  winter  scene  radar  images 
could  be  simulated.  The  scene  initially  was  aseasonal ,  that  is,  it  was 
lacking  in  any  characteristics  which  would  define  it  as  belonging  to  a  par¬ 
ticular  season  of  the  year.  Vegetation  cover  types,  for  example,  were  lis¬ 
ted  initially  as  a  unique  number  within  the  set  assigned  for  a  general 
category  such  as  "deciduous  woodland"  or  "grassland,"  with  no  phenological 
descriptors  such  as  "deciduous  woodland,  leaves  "absent"  or  "grassland 
dormant."  Since  each  distributed  target  had  been  assigned  a  unique  number, 
appropriate  modifiers  to  place  the  vegetation  into  a  particular  season  such 
as  the  winter  state  and  to  cover  the  landscape  with  snow  and  the  water  with 
ice  were  added  later. 

This  task  was  concerned  primarily  with  the  determination  of  the  iden¬ 
tity,  areal  distribution,  and  condition  of  the  various  surface  cover  types 
of  the  Earth's  surface  in  the  vicinity  of  Watertown,  New  York,  and  the  pre¬ 
paration  of  cover  category  maps  at  scales  of  1:100,000  and  1:24,000  to  dis¬ 
play  these  features  for  digitization  and  subsequent  integration  into  the 
radar  simulation  process.  The  reasoning  behind  this  approach  and  the  material 
and  methods  utilized  are  described  in  the  following  sections. 

The  1:100,000  scale  map  was  developed  to  support  relatively  high  alti¬ 
tude  radar  simulations  (  >  4,500  m)  and  the  1:24,000  scale  map  was  developed 
for  low  altitude  simulations  (>  1,000  m). 

In  the  preparation  of  any  map,  regardless  of  its  application,  it  is 
necessary  to  begin  with  an  already  available  base  map  or  to  prepare  a  base 
map  from  aerial  photographs  and/or  satellite  imagery.  To  this  base  map, 


then,  additional  information  may  be  added  as  appropriate  for  the  application. 

For  the  Watertown  radar  simulation  data  base  a  film  positive  orthophotomosaic 
(scale  1:100,000)  prepared  and  supplied  by  the  U.S.  Army  Engineer  Topographic 
Laboratory  served  as  source  information  for  the  location  of  land/water  boundar¬ 
ies  and  cover-type  boundaries  for  the  1:100,000  scale  base  map.  For  the  pre¬ 
paration  of  the  1:24,000  scale  base  map,  the  center  of  the  orthophotomosaic, 
covering  an  area  with  a  radius  of  approximately  eleven  (11)  kilometers  around 
the  city  of  Watertown,  was  photocopied  and  printed  on  paper  at  the  enlarged 
scale.  The  maps  were  drawn  on  mylar  film  laid  directly  over  the  photographs. 

For  identification  of  surface  cover  types,  it  was  decided  to  rely  on 

stereo  examination  of  the  original  9  x  9-inch  film  positive  air  photos, 

acquired  by  Mark  Hurd  Aerial  Surveys,  from  which  the  orthophotomosaic  had  been 

prepared.  This  source  was  supplemented  with  LANDSAT  MSS  (Multi-Spectral  Scanner) 

imagery,  color  infrared  aerial  photographs  of  portions  of  the  study  site,  maps 

of  the  Fort  Drum  Military  Reservation  supplied  by  USAETL  and  the  open 
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technical  literature  *  *  *  *  .  The  decision  to  make  a  versatile  aseasonal 

base  map  was  based  on  three  factors. 
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First,  it  might  be  desirous  at  some  future  date  to  simulate  a  radar 
image  of  the  Watertown  site  for  a  different  season. 

Second,  most  of  the  surface  category  boundaries  would  be  evident  at  all 
seasons,  even  with  deep  snow  cover;  only  the  condition  of  the  surface  cover 
within  each  bounded  area  would  change  with  season,  and  little  effort  would 
be  saved  by  eliminating  those  boundaries  which  would  be  obliterated  by 
snow  cover.  By  coding  each  bounded  area  by  cover  category  type,  it  is 
possible  to  vary  the  radar  backscatter  input  as  necessary  for  each  category 
to  fit  any  season  desired.  The  scheme  is  limited  only  by  the  availability, 
or  lack  thereof,  of  empirical  backscatter  data  for  the  cover  types  and  con¬ 
ditions  to  be  simulated.  Such  a  system  has  the  added  advantage  of  being 
easily  modified  to  accommodate  changes  due  to  road  construction,  urban 
expansion,  etc.  This  is  especially  true  of  the  1:24,000  scale  base  map  on 
which  each  delimited  zone  was  given  a  unique  identification  number  within 
its  category  type,  thus  making  it  possible  to  access  and  alter,  if  desired, 
the  computer  file  contents  representing  each  individual  zone  (field,  road, 
lake,  etc.). 

Third,  it  was  desired  to  compare  several  different  techniques  for 
incorporating  the  scene  characteristics  representative  of  winter  conditions. 
Some  of  these  techniques  involved  adding  snow  cover  either  zone-by-individual- 
zone,  or  simultaneously  to  an  entire  cover  category;  others  involved  the 
blanket  addition  of  snow  of  various  depths,  the  estimation  of  which  was 
based  on  knowledge  of  topography,  tree  heights,  prevailing  winds  and  average 
snowfalls  for  the  months  of  December  through  March.  Obviously,  only  an 
aseasonal  base  map  would  provide  the  versatility  necessary  for  these  com¬ 
parisons. 


TABLE  2 


TIME  EXPENDITURES  FOR-  PRODUCTION  OF  ALL  WATERTOWN 
ASEASONAL  AND  WINTER  OVERLAYS 


DISTRIBUTED 

TARGET 

OVERLAYS 

POINT 

TARGET 

OVERLAYS 

SNOW 

DEPTH 

OVERLAYS 

TOTAL 

High  altitude 

71 

15 

20 

106 

Low  altitude 

216 

40 

20 

276 

Total 

287 

55 

40 

382 

The  details  of  the  aseasonal  base  map  construction  and  a  discussion 
of  several  approaches  for  incorporating  winter  season  descriptors  into  the 
Watertown  scene  are  presented  in  the  following  sections. 

2. 1  Preparing  an  Aseasonal  Scene  Data  Base 

Two  sets  of  base  maps  with  different  levels  of  resolution  were  created. 
For  higher  altitude  simulations,  base  maps  at  a  scale  of  1:100,000  were  pre¬ 
pared;  for  lower  altitude  simulations,  a  scale  of  1:24,000  was  selected. 

The  maps  were  drawn  with  pencil  onto  .005"  matte-finish  mylar  film  laid 
directly  over  the  source  imagery.  To  reduce  confusion  due  to  overcrowding 
of  the  overlays,  and  subsequent  errors  in  overlay  production  and  digitiza¬ 
tion,  the  surface  feature  information  was  divided  between  two  separate 
overlays.  Boundaries  of  distributed  targets  such  as  water  bodies,  vegeta¬ 
tion,  and  bare  soil  zones  were  traced  onto  one  overlay.  Point  targets, 
including  urban  areas,  small  clusters  of  buildings,  railroads,  bridges  and 
roads  were  traced  onto  the  second.  A  third  overlay  was  constructed  for 
describing  season  features. 

As  with  any  vegetation  map,  positions  of  the  category  boundaries  must 
be  somewhat  arbitrary  when  vegetation  changes  are  gradual.  However,  where 
the  cover  types  change  abruptly,  location  of  the  boundaries  is  estimated  to 
be  accurate  to  within  +  37  m  at  a  scale  of  1:100,000  or  +  9  m  at  a  scale 
of  1:24,000. 

Total  time  required  for  production  of  the  aseasonal  scene  overlays  is 
estimated  at  382  man-hours  broken  out  as  indicated  in  Table  2.  Descriptions 
of  the  two  data  bases  produced  follow. 
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1:100,000  Scale  (High  Altitude)  Overlays 

For  the  high  altitude  aseasonal  overlays,  the  Earth's  surface  was 
divided  into  17  cover-type  categories  labeled  with  numerical  codes  as  indi¬ 
cated  in  Table  3.  All  zones  of  coniferous  forest  were  labeled  as  "10"*,  all 
zones  of  deciduous  forest  as  "20",  and  so  on. 

Vegetated  areas  were  distinguished  primarily  by  their  physiognomy,  or 
gross  canopy  architecture,  rather  than  by  species  composition  since  radar 
backscatter  will  depend  more  on  the  geometry  and  spatial  distribution  of 
plants  and  plant  parts,  the  presence  or  absence  of  leaves,  etc.,  than  on 
floral  characters  and  other  visually  minor  features  used  for  taxonomic  separ¬ 
ation  of  plant  species.  No  attempt  was  made  to  assign  crop  names  to  culti¬ 
vated  fields  since,  during  winter  months,  the  fields  would  contain  only 
plant  residues  or  tilled  soil.  Although  none  of  the  water  bodies  were 
frozen  in  October  when  the  aerial  photographs  were  taken,  boundaries  were 
located  in  the  water  to  permit  sequential  freezing  of  the  water  if  desired 
for  later  season  simulations.  Locations  of  freezing  boundaries  are 
somewhat  arbitrary  but  were  based  on  prevailing  wind  direction  during 
winter  months  and  topography  of  the  surrounding  land  surfaces.  Individual 
road  segments  were  given  unique  numbers  to  permit  their  removal  or  dimen¬ 
sional  alteration  if  necessary,  but  roads  were  not  subdivided  by  surface 
type  or  size.  Cities  were  divided  into  sections  which  were  dominated  by 
trees,  buildings,  open  ground,  asphalt,  or  by  some  mixture  thereof. 

1:24,000  Scale  (Low  Altitude)  Overlays 

For  the  low  altitude  overlays,  30  cover-type  categories  were  used 
(see  Table  4).  Within  the  numerical  identification  code  system,  each  bounded 
area  was  given  a  unique  number  so  that  it  could  be  easily  accessed  and 


TABLE  3 


COVER-TYPE  CATEGORIES  FOR  1:100,000  SCALE  OVERLAYS 
(WATERTOWN  SITE) 


IDENTIFICATION 

CODE 

CATEGORY 

Distributed 

target  overlay: 

10 

Coniferous  forest 

20 

Deciduous  forest 

30 

Shrubland  or  scrub 

40 

Swamps  and  marshes 

50 

Grass 

60 

Cultivated  fields 

70 

Bare  ground 

80 

Water,  never  freezes 

81 

Water,  first  to  freeze 

82 

Water,  second  to  freeze 

83 

Water,  third  to  freeze 

95 

Unidentified* 

Point  target 

overlay: 

2 

Urban  area,  mainly  trees 

4 

Urban  area,  mainly 
buildings 

5 

Urban  area,  equal  por¬ 
tions  of  buildings 
and  trees 

7 

Urban  area,  mainly  open 
ground,  with  or  without 

a  few  buildings  and 
trees 

8 

Urban  area,  mainly 
asphalt  surfaces 

6 

Urban  area,  unidentified* 

8100  -  8207 

Roads 

8555 

Railroads 

8255 

Roads,  unidentified* 

*These  numbers  were  for  the  use  of  the  digitizing  team  only  and 
were  to  be  assigned  to  map  features  which  had  been  drawn  "by 
the  overlay  team  but  had  failed  to  receive  an  identification 
number. 
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TABLE  4 


COVER-TYPE  CATEGORIES  FOR  1:24,000  SCALE  OVERLAYS 
(WATERTOWN  SITE) 


. 

IDENTIFICATION 

CODE 

CATEGORY 

Distributed 

target  overlay: 

1120 

Black  River 

1200  -  1206 

Small  rivers 

1300  -  1334 

Small  water  bodies 

1400 

Lake  Ontario 

1600  -  1606 

Swamps  and  marshes 

1700  -  1774 

Bare  around 

1800  -  1812 

Asphalt 

1900  -  1911 

Gravel 

2000  -  2155 

Coniferous  forest 

2300  -  2480 

Deciduous  forest 

2524  -  2999 

Mixed  forest 

3000  -  3574 

Grass 

4000  -  4487 

Shrubland  or  scrub 

5000  -  7965 

Cultivated  fields 

Point  target 

overlay: 

1000 

Lines  of  trees 

8200 

Heavy-duty  roads,  without  trees 

8233 

Heavy-duty  roads,  tree-lined 

8400 

Medium-duty  roads,  without 
trees 

8455 

Medium- duty  roads,  tree- lined 

8600 

Light-duty  roads,  without 
trees 

8677 

Light-duty  roads,  tree-lined 

8800 

Unimproved  dirt  roads, 
without  trees 

8899 

Unimproved  dirt  roads,  tree- 
lined 

8911 

Railroads,  without  trees 

8988 

Railroads,  tree-lined 

9011  -  9246 

Urban  areas 

a 

Mainly  trees 

b 

Mainly  buildings 

c 

Trees  and  buildinqs 

- 

Open  ground 

d 

Asphalt 

I 

9999 

Large  buildings 

altered,  if  necessary,  in  the  computerized  data  base.  For  example,  all 
areas  of  bare  ground  were  assigned  a  number  in  the  1700' s,  but  each  had  a 
unique  number  (1701,  1702,  1703,  etc.).  Vegetation  classes  for  the 
1:24,000  scale  overlay  are  identical  to  those  for  the  smaller  scale,  except 
that  the  category  of  mixed  coniferous/deciduous  forest  was  added.  No 
freezing  boundaries  were  added  to  water  bodies,  since  it  appeared  that  all 
water  surfaces  within  the  smaller  1:24,000  scale  test  site  would  be  frozen 
over  during  the  target  winter  month.  Roads,  although  not  uniquely  numbered, 
were  identified  as  to  type  (heavy-duty,  medium-duty,  light-duty,  or  unimproved 
dirt).  Narrow  lines  of  trees,  such  as  along  roads  or  around  fields,  were 
delimited  on  the  larger  scale  map,  but  not  on  the  smaller  scale  map.  They 
were  drawn  on  the  second  overlay  with  roads,  etc.,  since  that  overlay  is 
less  crowded  and  chances  of  overlooking  them  during  the  digitizing  process 
were  believed  to  be  smaller.  Urban  areas  were  subdivided  into  areas  dominated 
by  trees,  buildings,  asphalt,  or  a  mixture  of  trees  and  buildings.  Because 
the  four-digit  identification  numbers  used  would  not  fit  into  the  small 
spaces  delimited  within  the  urban  areas,  each  number  was  given  an  alphabet 
letter  suffix  (a  =  mainly  trees;  b  =  mainly  buildings;  c  =  equal  amounts 
of  trees  and  buildings;  and  d  =  mainly  asphalt),  and  only  the  code  letter 
was  written  in  each  bounded  area  within  a  city. 

2.2  Superimposing  Winter  Characteristics  on  the  Aseasonal  Scene 

As  previously  noted,  the  Watertown  data  base  was  constructed  to  satisfy 
objectives  of  a  study  performed  for  USAETL.  USAETL  specified  that  a  data 
base  be  constructed  for  an  "average"  winter  month.  USAETL  specified 
February  as  the  target  winter  month.  By  "average"  winter  was  meant  one 


which  literally  incorporated  the  seasonal  aspects  of  the  average  of  recent 
years.  February  1975  was  chosen  as  a  model  "average"  winter.  February 
was  selected  to  satisfy  study  requirements,  and  1975  was  selected  because 
climatic  conditions  that  year  approached  the  "average"  for  recent  years. 

Table  5  lists  temperature  and  snow  depth  in  February  for  the  years  1974-1976; 
1977  was  not  considered  "typical"  for  the  Watertown  area  because  of  an  extremely 
heavy  snowfall  and  accumulation.  Allowances  for  the  seasonal  changes  must  be 
incorporated  into  the  data  base.  To  change  an  aseasonal  scene  into  a  sea¬ 
sonal  scene,  information  must  be  added  to  describe:  (1)  condition  of  the 
natural  vegetation,  (2)  condition  of  the  cultivated  fields,  (3)  ice  cover 
(if  present)  of  water  bodies,  and  (4)  snow  cover  (if  present)  of  all  sur¬ 
faces,  for  the  particular  date  being  simulated. 

During  February,  most  deciduous  trees  and  shrubs  would  be  completely 
leafless  and  in  a  dormant  condition.  Above-ground  parts  of  grasses  and  other 
herbaceous  species  would  be  mostly  dead  and  dry,  if  not  altogether  absent. 

Cultivated  fields  would  be  devoid  of  crops,  although  some  might  be 
fallowed.  Corn  stubble  might  be  left  standing,  but  other  crop  residues  would 
probably  be  turned  under. 

Ice  thickness  data  for  central  New  York  state  were  difficult  to  obtain. 

24  25 

However,  data  *  suggest  that  most  water  surfaces  would  be  completely  fro¬ 
zen  in  February.  Because  average  daily  temperature  maxima  for  1974  and  1975 
were  below  freezing,  it  seemed  reasonable  to  assume,  for  purposes  of  this 
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Regions  Research  and  Engineering  Laboratory,  Hanover,  New  Hampshire,  1976. 
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TABLE  5 


WATERTOWN  WINTER  SCENE  TEMPERATURE  AND  SNOW  DEPTH 
[(/.S.  Department  of  Commerce  National  Oceanic  and 
Atmospheric  Administration,  1974-1976] 


1974 


TEMPERATURE 

SNOW 

AV.  MAX. 

AV.  MIN. 

AV. 

STATION 

°C 

°C 

°C 

TOTAL 

Wtwn* 

-2.44 

-14.40 

-8.44 

17.0 

WtFAA2 

-3.11 

-13.20 

-8.16 

14.7 

Wtwn 

-0.05 

-  8.88 

-4.44 

54.1 

WtFAA 

-1.05 

-  9.66 

-5.33 

49.0 

Wtwn 

3.72 

-  9.44 

-2.83 

39.3 

WtFAA 

4.94 

-  6.61 

-0.83 

13.2 

MAX.  DEPTH 


Watertown 


hwk] 


Watertown  airport 


data  base,  that  the  ice  surfaces  would  remain  frozen  during  the  day,  and  no 
attempt  was  made  to  allow  for  standing  water  which  might  be  present  on  top 
of  partially  thawed  ice.  Because  ice  thicknesses  for  February  for  the  test 
site  are  generally  considerably  greater  than  the  skin  depth  of  the  radar  sys¬ 
tem  being  modeled,  it  was  not  deemed  necessary  to  include  ice  thickness  con¬ 
tours  on  the  overlays.  As  was  mentioned  earlier,  however,  by  digitizing  ice/ 
open  water  boundaries  into  the  aseasonal  scene,  the  option  of  changing  the 
ice/open  water  ratio  on  Lake  Ontario  and  its  major  tributaries  was  retained. 

Snow  depth  data  were  obtained  from  the  USDA  NOAA*  1976-1976  records  of 

26 

the  Watertown  and  Watertown  airport  stations  .  All  other  New  York  reporting 
stations  with  recording  gauges  and  detailed  weather  records  were  well  beyond 
the  borders  of  the  test  site.  To  simplify  the  task,  it  was  assumed  that 
temperatures  would  always  remain  below  freezing  and  no  free  water  would  exist 
within  the  snow  layer;  no  attempt  was  made  to  model  incident  solar  radiation 
and  resultant  snow-melt  patterns,  since  no  supporting  data  on  layering  effects 
were  available.  The  snow  layer  was  assumed  to  be  vertically  homogeneous. 

Four  techniques  were  evaluated  for  satisfying  the  requirements  of  the 
sponsor  of  this  work  for  estimating  snow  depth  and  incorporating  that  into 
the  simulation  algorithm.  These  are  described  below. 

2.2.1  Isometric  Addition  of  Snow  to  the  Ground  Throughout  the  Scene 

The  simplest  approach  to  adding  snow  to  the  winter  scene  is  simply  to 
blanket  the  ground  everywhere  with  an  equal  measure  of  snow  regardless  of 

*U.S.  Department  of  Commerce,  National  Oceanic  and  Atmospheric  Administration. 
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vegetation  cover,  topography,  direction  or  deg/ee  of  exposure  or  direction 
of  the  wind.  This  has  the  obvious  advantage  of  requiring  no  time  for  the 
production  of  an  overlay.  It  is  versatile  in  that  any  depth  of  snow  can 
be  added.  It  does,  however,  ignore  variations  in  snow  depth  which  are 
known  to  be  related  to  other  scene  variables  such  as  those  mentioned  above 
and  therefore  offers  a  very  rough  approximation  of  any  snow  mantle  which 
would  actually  be  present.  For  the  Watertown  area,  a  snow  base  of  15  cm 
would  fall  within  the  range  of  values  recorded  for  maximum  depth  on  the  ground 
on  any  given  day. 

2.2.2  Varying  Snow  Depth  Surface  Category  Type 

Snow  accumulates  to  different  depths  in  forests  as  compared  to  open 

fields,  or  even  in  deciduous  forests  as  compared  to  needleleaf  evergreen 
27 

forests  .  By  taking  advantage  of  this  knowledge,  it  is  possible  to  model 
the  snow  cover  slightly  more  realistically  than  is  possible  by  isometric 
addition  of  snow,  while  still  avoiding  the  expenditure  of  time  for  manual 
production  of  a  separate  overlay.  It  is  necessary  only  to  apply  different 
"snow  compensation:  coefficients  according  to  surface  cover  type  categories 
of  the  aseasonal  scene  overlays." 

Snow  depths  to  be  used  for  the  simulation  were  selected  on  the  basis  of 

27 

ground  truth  data  reported  for  south-central  New  York.  Their  data  were 
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76  pages. 
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standardized  by  transforming  their  absolute  reported  values  into  ratios 
and  then  using  these  ratios  to  adjust  1975  base  values.  Where  cover  cate¬ 
gories  differed  from  theirs  (e.g.,  urban  areas,  railroads,  etc.)  "reasonable" 
estimates  were  used  for  snow  cover  accumulation.  Table  6  lists  snow  depths 
used  for  this  approach. 

2.2.3  Varying  Snow  Depth  with  Exposure  to  Wind 

To  take  wind  direction  into  account  in  an  effort  to  anticipate  drift¬ 
ing  and  blowing  patterns,  one  should  rightfully  have  some  indepth  knowledge 
of  the  effects  of  shape,  size,  and  location  of  surface  protuberances  (houses, 
hills,  stands  of  trees,  etc.)  on  wind  speed  and  direction,  on  a  local  scale 
as  well  as  a  larger  scale.  Snowflake  size  and  water  equivalency  may  also 
affect  snow  accumulation  patterns.  However,  exact  conditions  of  wind  speed 
and  direction,  snow  water-equivalency,  snow  depth,  etc.  may  vary  significantly 
from  one  snowfall  to  another;  hence,  drift  patterns  can  be  expected  to  vary 
as  well . 

This  approach  to  winter  scene  modeling  was  consistent  with  the  sponsor's 
requirements  and,  thus,  a  third  overlay  was  constructed  to  indicate  snow 
depth  contours  on  a  coarse  scale.  Prevailing  winds  were  assumed  to  blow 
from  the  southwest,  depositing  less  snow  on  exposed  hilltops  and  bluffs  and 
more  snow  in  protected  sites  on  the  leeward  side  of  hills,  bluffs,  and 
wooded  areas.  Valleys  more  or  less  perpendicular  to  the  prevailing  wind 
direction  were  allowed  to  accumulate  more  snow  than  those  more  or  less 
parallel  to  the  wind  direction.  No  variations  in  snow  depth  were  allowed 
for  different  vegetation  types.  Table  7  indicates  the  snow  depth  categories 
selected.  The  base  may  be  varied  to  fit  local  conditions  for  the  date  to 
be  simulated.  For  this  case,  base  is  15  cm.  The  same  identification  codes 
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*Snow  base  for  this  simulation  was  set  at  15  cm 


TABLE  7 


OVERLAY  CODES  FOR  VARYING  SNOW  DEPTH  WITH  EXPOSURE  TO  WIND 


IDENTIFICATION  CODE 
(1:100,000  and  1:24,000  SCALE) 

SNOW  DEPTH 

000 

No  snow 

100 

Base* 

200 

Base  +  15  cm 

300 

Base  +  30  cm 

400 

Base  +  45  cm 

*Snow  base  for  this  simulation  was  set  at  15  cm 


and  depth  categories  were  used  for  both  the  low  and  the  high  altitude 
overlays.  Approximately  20  hours  each  were  required  to  produce  the  high  and 
low  altitude  snow  depth  overlays  (see  Table  2). 

4.  Varying  Snow  Depth  with  Surface  Type  and  Exposure  to  Wind 

In  the  real  world,  snow  accumulation  and  drift  patterns  will  be  related 
not  just  to  surface  type,  vegetation  type  or  exposure,  but  to  a  combination 
of  these  factors  plus  wind  speed,  snow  wetness,  etc.  Incorporation  of  snow 
characteristics  into  the  simulation  algorithm  does  not  appear  feasible  at 
this  time.  However,  computer  combination  of  both  the  wind  exposure  overlay 
and  the  surface  type  variations  in  snow  depth  may  be  possible.  This  method 
was  not  tested  but  is  recommended  for  future  research. 

2.  Watertown  Data  Base  Specifications 

Three  types  of  overlays  were  constructed  for  both  the  1:24,000  and 
1:100,000  scale  data  bases:  (1)  distributed  target,  (2)  cultural  target, 
and  (3)  snow  depth.  These  overlays  were  digitized  and  merged  with  eleva¬ 
tion  data  as  discussed  in  Section  3. 

Data  Base  Specifications  —  Watertown 

Specification  of  pertinent  parameters  for  the  1:24,000  scale  data  base 
is  presented  in  Table  8,  and  for  the  1:100,000  scale  data  base  in  Table  9. 
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TABLE  8 


PARAMETER  SPECIFICATIONS:  1:24,000  SCALE  DATA  BASE 
(WATERTOWN  SITE) 


Data  base  size: 

Site  location: 

Spatial  sample  size: 

Elevation  data  accuracy: 

Backscatter  category 
resol ution: 

Number  of  elements  in 
digital  matrix: 

Scale: 

Source  intelligence  data  used: 
Elevation  data: 

Category  data: 


Approximately  23.2  km  x  23.7  km 
(14.4  x  14.7  miles) 

Center  located  at  coordinates 
43°  58'  43" N  by  75°  52'  31"W 

6.25  in  (20.5  feet)  in  both  range 
and  azimuth 

Estimated  to  be  approximately 
+  12.5  m  (+_  41.0  feet) 

Estimated  to  be  approximately 
30.5  m  (100  feet)  in  both  range 
and  azimuth 

14,105,600  (3712  records,  each 
containing  3800  points)  at  6.25  m 
per  sample  in  both  range  and 
azimuth;  N  =  3712  records  and 
M  =  3800  points 

1:24,000 


Provided  by  ETL  from  the  output 
of  the  UNAMACE  elevation  data 
computer  program 

Spatial  geometry  and  detail  was 
obtained  from  1:100,000  scale 
orthophoto  (rectified  geometry) 
and  distributed  category  bound¬ 
aries  interpreted  from  1:100,000 
high-resolution  aerial  photo¬ 
graphs  which  also  served  as  the 
source  for  the  orthophoto. 

(Note:  the  geometry  of  the 
terrain  in  the  orthophoto  was 
rectified  for  a  tangent  plane 
approximation  to  the  Earth 
centered  on  the  target  center). 


TABLE  9 


PARAMETER  SPECIFICATIONS:  1:100,000  SCALE  DATA  BASE 
(WATERTOWN  SITE) 


Data  base  size: 

Approximately  80.8  km  x  85.0  km 
(50.2  x  52.8  miles) 

Site  location: 

Center  located  at  coordinates 

43°  58'  43"N  by  75°  52'  31"W 

Spatial  sample  size: 

25  m  (82.0  feet)  in  both  range 
and  azimuth 

Elevation  data  accuracy: 

Estimated  to  be  approximately 
+  12.5  m  (+_  41.0  feet) 

Backscatter  category 
resolution: 

Estimated  to  be  approximately 

100  m  (328  feet)  in  both  range 
and  azimuth 

Number  of  elements  in 
digital  matrix: 

10,988,800  (3232  records,  each 
containing  3400  points)  at  25  m 
per  sample  in  both  range  and 
azimuth;  N  =  3232  records  and 

M  =  3400  points 

Scale: 

1:100,000 

Source  intelligence  data  used: 

Elevation  data: 

Provided  by  ETL  from  the  output 
of  the  UNAMACE  elevation  data 
computer  program 

Category  data: 

Spatial  geometry  and  detail  was 
obtained  from  1:100,000  scale 
orthophoto  (rectified  geometry) 
and  distributed  category  bound¬ 
aries  interpreted  from  1:100,000 
high-resolution  aerial  photo¬ 
graphs  which  also  served  as  the 
source  for  the  orthophoto. 

(Note:  the  geometry  of  the 
terrain  in  the  orthophoto  was 
rectified  for  a  tangent  plane 
approximation  to  the  Earth 
centered  on  the  target  center). 
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3.0  CONSTRUCTION  OF  A  DIGITAL  DATA  BASE  FROM  SURFACE  FEATURE  OVERLAYS 

3. 1  Definition  of  Work  Performed 

A  digital  data  matrix  which  comprehensively  describes  the  target  scene 
is  required  as  input  for  the  PSM  radar  simulation  package.  Each  number  in 
this  input  matrix  is  encoded  to  describe  a  fixed  area  of  ground  in  the  tar¬ 
get  scene.  The  area  represented  by  each  value  in  this  matrix  defines  the 
resolution  of  the  data  base. 

The  information  required  at  each  point  in  the  data  base  includes: 

(1)  the  local  elevation  above  sea  level, 

(2)  a  category  assignment  for  the  ground 
cover  of  that  cell,  and 

(3)  aseasonal  category  assignment. 

This  section  describes  the  techniques  used  to  transform  hand-drawn 
maps  into  digital  form  and  to  combine  the  results  into  a  single  complete 
digital  data  matrix  for  input  to  the  radar  simulation  programs  (such  as 
those  listed  in  Appendix  C). 

3. 2  Construction  Approach 

A  single  general  format  was  carefully  defined  for  the  various  category 
maps  to  be  input  to  the  data  base  construction  package  so  that  all  of  them 
could  be  transformed  into  digital  format  with  the  same  software.  Each  map 
consists  of  a  series  of  line  boundaries  that  completely  segment  the  tar¬ 
get  area  into  distinct  fields.  The  category  type  of  each  field  is  identi¬ 
fied  by  a  category  number  written  inside  the  field  boundary.  No  other 
details  are  included  in  a  map  except  for  a  series  of  registration  marks 
which  are  used  to  define  precisely  the  scale  and  orientation  of  the  map  so 
that  it  may  be  registered  with  other  maps  and  elevation  data.  In  the  cultural 


map  which  includes  linear  targets  such  as  roads  and  railways,  a  special 
value  was  associated  with  these  lines  to  indicate  that  they  represent  a 
category  type  themselves  and  not  merely  a  boundary  between  two  category 
types . 

A  digital  representation  of  the  information  included  in  each  of  these 
maps  was  generated  by  tracing  the  border  of  each  field  in  the  map  on  a 
large-scale  digitizing  table.  Then  a  series  of  computer  programs  were  run 
to  convert  the  digital  data  representing  field  boundaries  into  a  complete 
two-dimensional  matrix  in  which  each  cell  contains  the  category  value 
corresponding  to  the  field  in  which  it  is  found. 

The  software  package  which  was  used  to  create  and  assemble  the  final 
digital  data  base  can  be  divided  into  three  major  segments.  After  the 
digital  data  representing  field  boundaries  were  acquired,  it  was  necessary 
to  identify  each  field  boundary  in  the  data  stream  and  insure  that  the 
boundary  was  continuous  (at  the  resolution  of  the  final  data  base)  and 
formed  a  closed  region  (i.e.,  the  last  point  of  a  boundary  returned  to  the 
initial  point  of  the  boundary).  At  this  stage,  end  markers  were  placed  in 
the  data  stream  to  separate  distinct  borders,  and  when  discontinuities  were 
found  points  were  added  to  the  data  stream  to  form  complete  boundaries.  In 
the  next  step,  for  each  closed  boundary,  the  points  representing  the  border 
were  converted  to  matrix  cell  locations  and  all  those  matrix  cells  lying 
within  the  enclosed  region  were  assigned  the  corresponding  category  value. 
Finally,  after  each  of  the  required  digital  matrices  were  completed  (e.g., 
distributed  target,  cultural  target,  and  seasonal  map),  they  were  merged 
together  along  with  the  elevation  matrix  to  form  a  single  output  unit  con¬ 
taining  all  of  the  required  information.  Each  of  these  steps  will  be 
described  in  detail  in  the  following  sections. 


3.3  Digitizing  Surface  Feature  Overlays 


At  the  beginning  of  the  data  base  construction  process,  the  only  input 
is  a  collection  of  hand-drawn  feature  maps  which  must  be  transformed  into  a 
digital  data  base.  Since  the  first  program  in  the  series  requires  a  digital 
input,  it  is  necessary  to  somehow  represent  these  maps  digitally  in  a  form 
which  the  programs  can  then  manipulate.  This  is  accomplished  by  digitizing 
the  maps  on  a  digitizing  table.  A  Bendix  digitizing  table  interfaced  to  a 
dedicated  minicomputer,  which  in  turn  is  connected  to  a  seven-track  magnetic 
tape  drive  for  output,  was  used.  For  verification  of  a  day's  work,  there 
was  also  a  Calcomp  plotter  which,  with  some  software  support,  was  able  to 
read  the  tape  and  plot  out  the  areas  which  had  already  been  digitized.  This 
enabled  the  operators  to  check  for  areas  which  were  digitized  twice,  or  that 
were  missed.  The  digitized  boundary  data  were  stored  serially  on  computer- 
compatible  magnetic  tape  for  the  remainder  of  the  digital  processing. 

For  ease  of  construction,  it  was  decided  that  each  area  representing 
a  given  field  would  be  digitized  by  tracing  its  entire  boundary.  This  implies 
that  there  would  be  line  segments  which  were  digitized  twice,  but  the  loss  of 
time  was  outweighed  by  the  fact  that  the  category  number  for  a  field  could 
be  followed  by  all  of  the  coordinates  defining  the  boundary  of  the  field. 

The  other  major  a  priori  decision  was  that  each  field  would  be  digitized 
in  a  clockwise  direction.  This  was  required  because  one  of  the  later  pro¬ 
grams  (AREAFIX,  see  Appendix  B)  requires  that  it  know  the  direction  of 
travel  of  the  line. 

Before  the  start  of  each  digitizing  session,  reference  points  were 
entered  via  the  table.  This  was  necessary  for  two  reasons.  First,  the 
reference  points  defined  the  scale  and  orientation  of  the  map.  Since  the 
completed  data  base  must  coincide  with  the  elevation  data  base,  these 
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reference  points  were  chosen  to  correctly  orient  the  digitized  data  in  the 
same  scale  and  direction  as  the  elevation  data.  Next,  since  the  maps  were 
too  detailed  to  be  completely  digitized  in  a  single  session,  the  reference 
points  insured  that  the  data  from  different  sessions  were  correctly  scaled 
and  oriented  with  respect  to  each  other,  thus  insuring  geometric  fidelity 
between  the  output  of  different  sessions.  For  these  reasons,  great  care 
was  taken  in  both  the  determination  and  registration  of  the  reference  points. 

The  actual  digitized  data  for  each  field  consisted  of  four  pieces  of 
data.  First,  a  symbol  was  output  to  indicate  the  beginning  of  a  new  field. 
This  was  optionally  followed  by  a  category  number  for  the  field  to  be  digi¬ 
tized,  if  it  differed  from  the  category  of  the  field  previously  digitized. 
Next,  there  were  the  actual  x-y-coordi nates  of  the  field  boundary.  Finally, 
when  all  of  the  points  for  a  single  field  were  recorded,  a  special  end-of- 
boundary  symbol  was  written  to  the  output  tape. 

The  digitizing  system  supported  two  modes  of  operation  for  tracing  the 
field— continuous  and  point  modes.  In  the  continuous  mode,  the  digitizing 
system  sampled  the  cursor  position  at  regular  (10  milli-second)  time  inter¬ 
vals  and  outputted  an  x-y-coordi nate  pair  reflecting  this  position  in  the 
coordinate  system  defined  by  the  reference  points.  With  this  mode,  the 
individual  simply  traced  the  border  with  the  cursor  and  the  system  auto¬ 
matically  recorded  data.  Care  had  to  be  taken,  however,  not  to  stray  from 
the  line  being  traced  since  data  were  being  collected  continuously  and  it 
was  not  possible  to  erase  errors.  If  an  error  were  made  during  the  digiti¬ 
zation  of  a  field  boundary,  all  of  the  data  for  that  boundary  had  to  be 
deleted  and  the  entire  boundary  redigitized.  This  mode  was  used  for  irregu¬ 
lar  boundaries.  For  rectangular  fields,  the  point  mode  was  used  in  which 
the  operator  needed  only  to  record  the  corner  points.  Software  was  used 


at  a  later  time  to  process  these  data  (INITFIX,  see  Appendix  B  )  for  con¬ 
necting  between  the  points.  This  mode  greatly  reduced  the  volume  of  data 
collected  and  stored,  and  also  eliminated  unwanted  operator  irregularities 
created  when  tracing  a  straight  line. 

After  each  day's  work,  the  output  tape  was  input  to  the  plotting 
device  to  produce  a  visual  record  of  the  data  collected.  Closely  examining 
these  plots  allowed  the  operators  to  detect  errors,  such  as  fields  that  were 
not  digitized  or  that  were  incorrectly  digitized  so  that  these  errors  could 
be  corrected  in  the  following  digitizing  session. 

3.4  Construction  of  a  Digital  Data  Base  Matrix 

3.4.1  Introduction  to  the  Approach 

The  transformation  of  digital  data  representing  field  boundaries  into 
a  two-dimensional  digital  matrix  is  conceptually  quite  simple.  The  points 
representing  a  field  boundary  are  placed  in  the  appropriate  cells  in  the 
matrix  and  then  an  algorithm  is  executed  to  fill  in  all  those  cells  enclosed 
by  the  closed  line  segment  with  the  appropriate  category  number.  The  size 
of  the  data  base  to  be  produced,  however,  introduced  some  significant  prob¬ 
lems  for  implementation  of  this  conceptual  approach.  The  size  of  the  data 
base  matrices  to  be  produced  was  approximately  3200  lines  by  3200  columns, 
or  about  10,000,000  cells  per  data  base.  This  number  is  about  100  times 
larger  than  the  amount  of  main  memory  available  at  the  computer  facilities, 
so  it  was  clearly  infeasible  to  store  the  entire  data  matrix  in  memory. 

To  overcome  computer  memory  space  limitations,  an  approach  was  devel¬ 
oped  to  construct  the  two-dimensional  matrix  a  single  column  at  a  time. 

The  basic  premise  being  that  a  column  of  the  data  base  can  be  constructed 
if  the  bottom  and  top  points  are  known  for  each  field  in  the  data  base  that 
the  given  column  intersects. 


The  first  major  step  to  be  performed  in  the  data  base  construction 
sequence  was  to  correct  known  errors  in  the  original  input  data  and  to 
modify  the  format  of  the  data  to  one  which  was  more  convenient  for  the 
remaining  programs  in  the  sequence.  The  errors  in  the  input  data  were  of 
two  general  types.  The  first  type  of  error  was  discontinuities  in  line 
segments.  There  cannot  be  any  errors  in  a  field  boundary  for  the  construc¬ 
tion  process  to  execute  correctly.  Since  the  input  data  were  sequential, 
gaps  were  easily  detected  by  calculating  the  distance  between  adjacent 
input  points.  If  a  gap  were  found,  a  simple  connect  routine  calculated 
the  points  required  to  fill  in  the  gap.  The  second  type  of  error  was  the 
resuU  of  errors  occurring  during  the  original  digitizing  process.  Errors 
of  this  type  include  assignment  of  the  wrong  category  to  a  field  boundary, 
digitizing  the  same  field  more  than  once,  or  only  partially  digitizing  a 
field.  These  errors  had  to  be  identified  either  by  the  operators  them¬ 
selves  or  through  program  checks  at  various  points  in  the  sequence.  These 
errors  were  corrected  by  eliminating  bad  data  points  and  changing  incorrect 
category  assignments,  etc.,  in  the  data  system. 

The  next  step  in  the  sequence  was  to  label  each  point  of  a  line  bound¬ 
ary  as  a  bottom,  top,  or  interior  point  for  that  boundary.  Interior  points 
occur  within  vertical  line  segments  and  were  deleted  since  only  the  bottom 
and  top  points  of  a  boundary  were  needed.  All  boundaries  were  digitized  in 
a  clockwise  manner  to  facilitate  this  labeling  of  the  points.  Given  this 
information  and  the  direction  of  the  line  segment  before  and  after  a  point 
in  the  line,  determine  whether  a  given  point  is  a  bottom,  top,  or  interior 
point.  Direction  of  the  line  segment  was  easy  to  determine  since  the  data 
remained  in  sequential  order. 


Having  labeled  each  point  as  a  bottom  or  a  top,  the  points  were  then 
sorted  according  to  the  column  in  which  they  belonged  so  that  each  column 
could  be  constructed  independently.  At  this  stage,  the  sequential  order 
of  the  data  was  lost  since  that  information  was  no  longer  required. 

Finally,  each  column  of  the  completed  data  base  was  constructed  inde¬ 
pendently  from  the  list  of  bottom  and  top  points  falling  in  a  given  column. 
First  the  points  in  a  column  were  sorted  by  their  line  number  from  smallest 
to  largest.  Then  the  column  was  expanded  to  its  full  length  by  assigning 
the  appropriate  category  number  to  all  those  cells  between  the  bottom  and 
top  points  of  a  particular  field. 

3.4.2  Summary  of  Computer  Programs 

A  description  of  all  computer  programs  used  to  form  the  digital  data  base 
from  the  digitization  information  is  contained  in  Appendix  B. 

3. 5  Merging  Different  Category  Matrices 

Typically,  three  (3)  sets  of  hand-drawn  data  base  maps  were  constructed 
and  passed  through  the  digitization  process  described  in  the  preceding  sec¬ 
tions.  One  (1)  for  distributed  targets  such  as  forests,  fields,  lakes, 
etc.,  one  (1)  for  cultural  features  such  as  buildings,  roads,  runways, 

railways,  etc.,  and  one  (1)  for  seasonal  data  such  as  snow  depth,  etc. 

At  this  point  it  is  necessary  to  combine  these  three  (3)  matrices  as  output 
from  the  computer  programs  described  in  Section  3.4  with  each  other  and  with 
an  elevation  data  matrix  into  a  single  meaningful  data  base  containing  all 
the  information.  This  merging  of  data  bases  must  be  done  carefully  to 
insure  that  correct  alignment  between  the  data  bases  is  accomplished.  Further, 
while  the  snow  and  elevation  information  must  be  packed  in  with  the  cate- 
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gory  information,  the  cultural  information,  i.e. ,  cities,  roads,  railroads, 
and  houses,  actually  replaces  the  category  information. 

With  these  requirements  in  mind,  a  three-program  package  was  developed 
to  accomplish  the  merging  of  these  various  data  bases.  The  input  to  this 
sequence  of  programs  is  the  complete  category,  snow,  and  elevation  data 
bases,  as  well  as  the  SORT  output  for  the  linear  and  point  targets  of  the 
cultural  map,  and  the  BUILD  output  of  the  city  areas.  (For  a  description 
of  SORT  and  BUILD,  see  Appendix  B).  Output  from  this  sequence  is  the 
full  rectangular  data  base,  containing  accurate  category,  snow,  and  ele¬ 
vation  data  for  each  resolution  cell.  The  programs  which  produce  this 
are: 

(1)  CATEGORY  AND  CULTURAL  MERGE  -  which  combines  the 
category  and  cultural  data  bases 

(2)  ADD  SNOW  -  which  overlays  the  snow  data  base  onto 
the  output  of  (1),  and  also  reassigned  the  cate¬ 
gories  of  the  data  base 

(3)  ADD  ELEVATION  -  which  adds  the  elevation  infor- 
mation  to  the  data  base  produced  in  (2),  the 
output  of  this  program  is  the  full  rectangular 
data  base 


These  programs  are  described  in  Appendix  B. 


4.0  RADAR  SIMULATION:  BACKSCATTER  DATA  AND  AN  EMPIRICAL  MODEL  FOR  SNOW 


The  purpose  of  this  chapter  is  to  describe  the  radar  reflectivity 
data  utilized  in  radar  simulation  of  the  Watertown,  New  York,  area  "winter 
scenes".  Two  goals  of  the  overall  winter  scene  study,  as  set  forth  in  the 
Introduction,  are  to  artifically  generate  representative  radar  imagery 
(i.e.,  without  the  use  of  actual  radar  images)  for  a  typical  Watertown 
winter  situation,  and  secondly,  to  evaluate  the  imagery.  Of  particular 
interest  to  the  military  community  is  an  evaluation  of  the  simulated 
imagery  for  terminal  guidance.  This  imagery  should  be  evaluated  in  the 
future  to  determine  whether  drastic  seasonal  differences  occur  between  a 
representative  winter  scene  and,  for  example,  a  "summer  scene".  Great 
disparity  between  the  scenes  implies  a  need  for  at  least  two,  stored, 
reference  images  for  year-round  effectiveness  in  terminal  guidance. 
However,  if  negligible  discrepancies  between  seasonally  different  scenes 
are  found  to  be  consistently  occurring,  then  the  need  for  multiple  refer¬ 
ence  scenes  per  target  site  is  not  well  established.  Nevertheless,  it 
will  be  important  in  the  future  for  the  sake  of  profitably  exploiting 
the  potential  of  radar,  both  as  a  terminal  guidance  sensor  and  a  means  of 
in-flight  guidance  updating,  to  understand  the  seasonal  variations  of 
the  radar  images  of  terrain.  Radar  simulation  is  an  excellent  means  of 
attaining  this  type  of  knowledge. 

The  backscatter  data  in  radar  image  simulation  serves  as  a  link  in 
the  chain  of  events  described  in  Chapter  1-3.  Since  real  radar  imagery 
is  not  used  in  the  production  of  surface  feature  overlays  or  data  bases, 
we  need  backscatter  information  in  combination  with  photographic  sources 
of  intelligence  to  predict  what  the  radar  will  "see"  or  what  target  types 


the  radar  can  distinguish,  and  how  well  it  can  do  this.  To  avoid  being  cryptic, 
let  us  use  an  example.  Photographic  information  shows  us  boundaries,  field-to- 
field  contrast,  and  so  forth.  What  we  would  like  to  know,  or  predict  with 
radar  image  simulation,  is  whether  the  radar  can  see  similar  boundaries,  simi¬ 
lar  or  reversed  field-to-field  contrast,  etc.  One  situation  in  which  photography 
(or  any  other  intelligence  source)  fails  to  serve  the  needs  of  radar  image 
simulation  occurs  when  the  camera  fails  to  distinguish  between  two  objects  on 
the  basis  of  tonal  differences  while  the  radar  could  have  distinguished 
between  them,  given  two  equal  resolution  systems.  Such  occurrences  cause 
"errors"  in  the  data  base,  and  are  unavoidable  in  some  instances  without  further 
knowledge  to  complement  the  photography.  Radar  backscatter  data,  together  with 

photographic  images,  have  served  well  the  purpose  of  radar  simulation  and  the 
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images  produced  have  been  very  similar  to  the  actual  radar  imagery  . 

We  have  applied  backscatter  data  to  characterize  "distributed"  targets 
in  simulations  and  have  symbolically  represented  cultural  targets  as  film 
saturations.  Alternate  approaches  are  being  sought  for  cultural  targets, 
as  the  concept  of  a  backscatter  coefficient  for  such  targets  is  not  felt 
to  be  valid.  On  the  other  hand,  the  backscatter  coefficient  o°  is  the 
only  factor  in  the  "radar  range  equation"  which  is  determined  by  the  terrain 
properties  alone.  Subsection  1.3.1  discusses  the  use  of  the  radar  equation 
for  simulation,  and  mentions  constraints  on  its  use  based  on  resolution  cell 
size,  the  distribution  and  number  of  scatterers,  and  so  on. 

The  backscatter  coefficient  is  a  measure  of  the  reradiative  ability 
of  the  terrain.  Since  a0  is  related  to  the  power  ratio  of  the  received 
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signal  to  the  transmitted  signal,  it  contains  no  explicit  phase  information. 
However,  the  amplitude  information  in  a  plot  of  ct°  versus  angle  of  inci¬ 
dence  for  a  particular  distributed  target  relays  a  good  deal  about  the 
target.  Several  features  of  these  plots  are  notable:  the  a0  value  at 
nadir,  the  shape  of  the  curve,  the  rate  of  drop-off  at  large  angles, 
obvious  break  points  in  the  curve,  and  the  total  change  in  a0  between  zero 
degrees  and  near  ninety  degrees.  These  features  of  a  ct°  curve  have  sig¬ 
nificance  when  obtained  by  a  precise  scatterometer.  For  example,  such  a 
plot  can  often  tell  us  whether  a  surface  scattering  terrain  under  investi¬ 
gation  is  smooth  or  rough  relative  to  the  illuminating  wavelength.  In 
another  situation  it  might  indicate  at  what  angular  range  a  layered  medium 
is  making  a  transition  between  looking  (to  the  radar)  like  a  volume  scatterer 
and  a  surface  scatterer.  Another  interpretation  of  two  o°  curves  plotted 
on  the  same  scale  might  be  an  observation  of  difference  in  target  moisture 
content,  dielectric  value,  etc.  Thus,  the  backscatter  data  plots  contain 
information  on  the  micro-scale  (i.e.,  the  order  of  wavelengths)  compared 
to  the  terrain  elevation  and  category  sampling  distances  described  in 
Chapters  2  and  3. 

We  can  turn  these  observations  about  backscatter  around  to  use  them 
as  guidelines  for  analysis  of  newly  gathered  o°  data  or  for  synthesis  of 
backscatter  data  for  currently  unmeasured  targets  we  would  like  to  simulate. 
Other  techniques  which  have  to  be  employed  to  fill  the  gaps  in  the  a0  data 
catalog  include  frequency  extrapolation  or  interpolation.  Many  such  gaps 
exist  in  the  00  data  catalog  when  we  begin  to  deal  with  the  backscatter 
from  snow,  from  snow  over  vegetation,  and  other,  similar  layered  structures. 
However,  one  empirical  model  being  developed  at  the  Remote  Sensing  Laboratory 


by  W.H.  Stiles  and  F.T.  Ulaby  for  snow  over  another  medium  characterized 
by  a  known  backscatter  function  (of  a0  versus  e)  has  been  investigated  and 
employed  in  the  winter  scene  simulations.  The  following  subsection  briefly 
describes  recent  empirical  developments. 

4.1  Backscatter  Data  for  Winter  Simulations 

In  the  winter  of  1975  the  Remote  Sensing  Laboratory  began  to  conduct 

experiments  on  snow  backscatter  measurement.  Since  that  time  the  number  of 

frequency/polarization  combinations  has  been  greatly  increased  to  yield  a 

fairly  large  quantity  of  backscatter  measurements.  Several  documenting 
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reports  and  publications  have  since  followed  ’  *  .  in  addition  to  the 

work  being  done  at  the  University  of  Kansas,  researchers  at  the  Georgia 
Institute  of  Technology,  the  National  Bureau  of  Standards  and  the  Massachu¬ 
setts  Institute  of  Technology  have  investigated  the  behavior  of  active  and 
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passive  microwave  systems  in  response  to  snow  as  the  target  ’’’’’  . 

Preliminary  observations  of  snow  backscatter  data  indicate  that  snow  can 

behave  as  either  a  volume  or  surface  scatterer,  that  it  can  appear  transparent 

or  opaque  or  as  an  attenuator  to  microwaves,  and  that  these  types  of  behavior 
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are  causally  related  to  the  "free  water  content"  of  the  snow,  its  temperature 

profile,  depth,  density  profile,  ionic  impurities,  the  frequency,  polarization, 
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and  angle  of  incidence  of  the  sensor,  etc.  Signal  fading  has  been  observed 
and  it  requires  appropriate  averaging  of  the  data  to  be  able  to  arrive  at  a 
mean  a0  value. 
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Analysis  of  the  Kansas  data  by  W.H.  Stiles  for  the  situation  of  a  layer  of 
snow  over  an  underlying  frozen  ground  has  generated  an  exponential  empirical 
model  for  the  backscatter  coefficient.  (Both  the  air-snow  and  the  snow-ground 
interfaces  were  fairly  smooth  in  the  actual  experiments).  This  model  is 
reported  in  Stiles'  dissertation  and  as  Remote  Sensing  Laboratory  TR  340-3. 

It  will  not  be  reported  here  as  it  was  unpublished  at  the  time  of  the  writing 
of  this  report.  All  data  resulting  from  the  application  of  the  empirical 
model  are  reported  in  Appendix  A. 


5.0  RESULTS 


The  Watertown  simulation  site  is  centered  on  the  southwestern  corner 
of  the  Freeman  Bus  Company  garage  on  the  northeastern  side  of  Watertown, 

New  York,  and  is  characterized  both  by  several  city  cultural  complexes  as 
well  as  by  forested  regions  and  agricultural  field  pattern  areas.  This 
geographic  region  represents  a  mix  of  cultural  and  distributed  targets. 
Construction  of  the  data  base  for  this  site  is  reported  in  Section  2  and 
simulation  parameters  for  it  are  summarized  there.  Reflectivity  data  used 
in  making  simulations  from  this  data  base  are  presented  in  Appendix  A. 

Sample  simulated  PPI  results  have  been  produced  for  the  Watertown 
site.  These  results  have  been  generated  via  a  digital  computer  from  the 
guidance  specialization  discussed  earlier  (see  Section  3  and  Appendix  C), 
and  have  been  photographed  from  the  image  display  of  the  VDI.  Table  10 
presents  the  parameters  of  the  guidance  radar  as  modeled.  A  sequence  of 
simulated  scenes  representing  four  different  altitudes  of  the  PPI  radar 
over  each  of  the  data  base  sites  were  produced  and  are  presented  here. 

Figures  4  and  5  present  sequences  of  four  (4)  simulated  radar  images 
produced  from  the  Watertown  target  site.  In  the  figures,  the  scenes  labeled 
Band  1  represent  the  lowest  altitude  and  Band  4  the  highest.  The  Band  1 
scene  portrays  a  simulated  radar  image  of  an  area  consisting  of  approximately 
250  square  kilometers,  and  the  Band  4  scene  portrays  an  area  of  approximately 
4,000  square  kilometers.  Table  11  summarizes  the  simulation  characteristic 
of  each  scene. 

In  both  figures,  a  sequence  of  images  starting  with  Band  1  and  ending 
with  Band  4  is  presented.  Figure  4  presents  radar  data  for  the  Watertown 
site  in  late  fall  to  early  winter,  and  Figure  5  in  mid-winter  with  a  sig¬ 
nificant  accumulation  of  snow  on  the  nround.  These  have  been  produced  by 


52 


TABLE  10 


GUIDANCE  RADAR  PARAMETERS  AS  MODELED  FOR  SIMULATION 


Transmitting  frequency: 

X-band 

Polarization  (transmit-receive): 

HH  (horizontal- 
horizontal) 

Resolution: 

Band  Number 

Range  Resolution 

Azimuth  Resolution 

1 

30.5  m 

[100  feet) 

1/2° 

2 

30.5  m 

[100  feet) 

1/2° 

3 

100  m 

[328  feet) 

1/2° 

4 

100  m 

[328  feet) 

1/2° 

TABLE  11 

SIMULATION  CHARACTERISTICS 


Transmitting  frequency:  X-band 

Polarization  (transmit-recelve) :  HH  (horizontal -horizontal ) 

Resolution: 


Band 

Number 

Range  Resolution 

Azimuth 

Resolution 

Number  of 
Resolution  Cell 

n 

30.5  m  (100  feet) 

1/2° 

105,  120 

■  i 

30.5  m  (100  feet) 

17  2° 

210,  240 

100  m  (328  feet) 

1/2° 

128,  160 

D 

100  m  (328  feet) 

1/2° 

255,  600 
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Polarization  HH 
Frequency  X-Band 
Resolution  18  m  x  1/2° 


Figure  4.  Radar  Image  Simulations  of  Watertown,  New  York,  in  late  fall  to 
early  winter. 


Polarization  HH 
Frequency  X-Band 
Resolution  18  m  x  1/2° 


the  computer  software  configuration  for  simulating  the  ballistic  missile 
guidance  system  and  the  Correlatron.  Thus,  the  geometry  and  parameters  of 
these  scenes  is  the  same  as  discussed  in  Section  1.6  and  Appendix  C,  and 
as  summarized  in  Tables  10  and  11. 

As  can  be  seen  in  the  figures,  the  characterization  of  the  simulated 
images  changes  from  one  dominated  by  the  city  of  Watertown  with  reasonable 
percentages  of  forest  and  fields  of  bare  ground  in  the  Band  1  image,  to 
one  dominated  by  forest  and  fields  of  bare  ground  with  city  complexes  pre¬ 
sent  in  the  Band  4  image.  Linear  features  such  as  roads,  railroads,  and 
lines  of  trees  are  prominent  in  all  four  bands.  Water  features  such  as 
rivers  are  present  in  all  four  bands  but  they  become  significant  in  the 
Band  4  scene  with  the  appearance  of  the  coast  of  Lake  Ontario. 

The  Bands  1  and  2  images  were  constructed  from  1  1:24,000  scale  data 
base  and  the  Bands  3  and  4  scenes  from  a  1:100,000  one.  Construction  of 
these  data  bases  is  discussed  in  Section  2  and  their  characteristics  and 
attributes  for  radar  image  simulation  are  summarized  there.  The  reflec¬ 
tivity  data  used  for  making  simulated  guidance  radar  images  from  these 
data  bases  are  listed  in  Appendix  B. 

The  sequences  of  scenes  presented  in  Figures  4  and  5  were  prepared  to 

test  radar  image  simulation  via  the  PSM  for  a  more  complex  site  and  for  a 
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different  season  than  earlier  work  ’  *  .  Unfortunately,  the  flight  test 
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program,  scheduled  to  be  flown  in  February  1978,  has  not  yet  been  conducted 
and,  thus,  the  actual  data  for  comparison  analyses  have  not  yet  been  collected. 
The  simulated  radar  images  therefore  can  only  be  shown  in  the  figures  for  infor¬ 
mation  as  correlation  results  have  not  been  produced,  though  they  may  be  produced 
some  time  after  the  flight  tests  planned  for  the  1979-1980  winter. 

The  winter  scene  sequence  shown  in  Figure  5  was  developed  utilizing  a  uni¬ 
que  data  base  construction  philosophy  discussed  in  Section  2,  and  an  empirically 
derived  model  for  the  effects  of  snow  covering  an  underlying  reflectivity  cate¬ 
gory  [to  be  published  in  RSL  TR  340-3,  by  Stiles,  et  al .  1979].  As  can  be 
seen  by  comparing  the  scenes  having  snow  to  those  without  snow,  the  major 
effect  from  this  model  is  an  average  brightening.  But  also,  new  boundaries  are 
created  and  some  old  ones  are  diminished,  effects  important  in  the  correlation 
process  to  be  used  (i.e.,  the  Correlatron) . 

On  a  qualitative  basis,  the  sequences  portrayed  in  both  figures  4  and  5 
"look"  appropriate  for  the  scenes  and  seasons  they  represent;  fall  and 
winter,  respectively.  Two  major  artifacts  are  immediately  obvious  in  all 
three  figures:  (1)  lack  of  fading  and  (2)  simulation  of  cultural  targets. 

Because  these  sequences  were  produced  for  testing  via  a  Correlatron,  fading 
was  not  introduced  into  the  simulated  images  as  fading  would  have  been  an 
additional  source  of  "noise"  thereby  lowering  the  correlation  peak  and 
broadening  it.  Because  these  sequences  were  to  be  as  omni-directional  as 
possible,  cultural  targets  were  simulated  symbolically.  The  simulation  pro¬ 
cess  for  cultural  targets  was  one  of  marking  the  presence,  shape,  size, 
and  location  of  each  individual  target  or  complexes  of  them.  They  were  all 
given  a  maximum  return  value  with  no  attempt  to  actually  predict  their 
return  with  the  exception  of  cities.  Cities  were  subdivided  into  four  (4) 
kinds  of  categories:  (1)  mostly  structures,  (2)  mostly  trees,  (3)  mixed 
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structures  and  trees,  (4)  open  land.  The  first  three  (3)  of  these  cate¬ 
gories  were  treated  symbolically  and  the  fourth  was  simulated  as  a  normal 
distributed  target. 


6.0  CONCLUSIONS  AND  RECOMMENDATIONS 


6.1  Conclusions 

It  is  believed  that  development  of  the  PSM  model  has  resulted  in  a 
very  advanced  simulation  system  which  has  expanded  the  frontiers  in  radar 
simulation.  The  guidance  radar  simulation  work  reported  here  represents  one 
"real-world"  application  of  the  model.  The  following  items  represent  the 
major  accomplishments  of  this  simulation  project: 

(A)  The  generation  of  winter  situation  reference  scenes 
and  development  of  methods  for  constructing  data 
bases. 

(1)  The  necessary  techniques  have  been 
developed  to  extract  feature  infor¬ 
mation  from  various  kinds  of  source 
intelligence  for  constructing  data 
bases. 

(2)  Specialized  computer  programs  have 
been  developed  to  process  hand-drawn 
feature  maps  into  data  bases. 

(3)  An  approach  has  been  developed  for 
adding  a  dimension  to  data  bases 
whereby  the  radar  images  correspond¬ 
ing  to  different  seasons  can  be 
simulated. 

(4)  Data  bases  have  been  developed  from 
manual  photo-interpretation  tech¬ 
niques.  Interactive  feature  extrac¬ 
tion  techniques  would  speed-up 
construction  of  data  bases  and  is 
judged  to  represent  a  potential 
reduction  in  the  costs  of  making 
data  bases. 

(B)  The  need  for  empirical  backscatter  models  and  back- 
scatter  data  has  been  identified  as  the  radar  scenes 
show  seasonal  changes  for  geographic  locations 
receiving  considerable,  medium  to  high  free  water 
content  snow. 
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(1)  Too  little  backscatter  data  are 
available  for  the  kinds  of 
reflectivity  categories  in  the 
terrestrial  envelope  of  scenes 
for  which  radar  simulations  are 
potentially  desired. 

(2)  The  numbers  of  variations  in  con¬ 
ditions  in  the  ground  (i.e.,  seasonal 
and  meteorological  variations)  with 
variations  in  radar  parameters  (i.e., 
frequency,  polarization,  etc.)  are 

too  many  for  measuring  all  permutations. 
Theories  must  be  developed  for  extend¬ 
ing  and  extrapolating  empirical  back¬ 
scatter  data  for  conditions  not  measured. 

(C)  The  PSM  has  been  demonstrated  to  be  a  high-quality 
general  methodology  for  the  simulation  of  radar 
imagery.  This  judgment  is  based  upon  the  qualita¬ 
tive  analysis  of  the  simulations  and  similar 
actual  imagery. 

(1)  The  necessary  mathematical  models, 
software  implementations,  and  tech¬ 
niques  have  been  developed  to  simu¬ 
late  radar  images  representative 
either  of  PPI  or  SLAR  (real  or  syn¬ 
thetic  aperture). 

(2)  Radar  propagational  phenomena  such 
as  layover  and  shadow  as  well  as 
geometrical  relationships  between 
radar  and  ground  are  accurately 
treated. 

(3)  The  general  PSM  implementations  are 
capable  of  simulating  the  radar 
return  from  complex  terrain  having 
significant  relief. 

(4)  The  general  PSM  implementations 
are  capable  of  simulating  the  radar 
return  from  a  scene  for  a  radar  having 
a  specified  resolution  and  averaging 
of  independent  samples  (within  the 
limitation  imposed  by  the  data  base). 

(5)  The  general  PSM  implementations  are 
capable  of  simulating  the  radar 
return  as  processed  via  any  desired 
antenna  to  receiver  to  image  system. 


(6)  The  general  PSM  implementations  are 
capable  of  producing  a  simulated  radar 
images  portraying  a  desired  subset 

of  the  dynamic  range  of  a  scene. 

(7)  The  general  PSM  simulation  implementa¬ 
tions  should  be  specialized  as  much  as 
possible  for  each  unique  application  to 
increase  efficiency  and  to  reduce  costs. 

6.2  Recommendations 

The  radar  simulation  project  concluded  and  reported  here  represents  a 
significant  advance  in  simulation  technology  for  radars.  Although  the  work 
completed  has  resulted  in  an  advanced  simulation  methodology,  additional 
work  is  contemplated  for  refining  various  aspects.  Several  recommendations 
follow  for  this  additional  work  and  refinements. 

6.2.1  Develop  an  Interactive  Feature  Extraction  System 

A  major  obstacle  to  increased  use  of  radar  image  simulation  is  the 
construction  of  data  bases  which  are  suitable  for  desired  applications. 

The  chief  problem  encountered  in  constructing  data  bases  is  in  feature 
extraction.  Feature  extraction  is  the  process  of  identifying  the  geometry 
and  category  (i.e.,  electromagnetic  reflectance)  properties  of  the  scene 
and  transferring  them  to  the  data  base.  It  is  recommended  that  an  inter¬ 
active  feature  extraction  system  be  developed.  Potential  benefits  which 
might  accrue  from  such  a  system  span  many  scientific  disciplines.  Obviously, 
radar  image  simulation  would  be  served.  Not  so  obvious  are  the  sciences 
such  as  geology  and  geography  which  rely  upon  manual  interpretation  of 
imagery  for  results.  In  addition,  the  general  field  of  image  processing 
would  be  aided  by  development  of  an  interactive  capability  such  as  the 
system  recommended. 


Classical  techniques  for  feature  extraction  are  manual  techniques. 
Typically,  a  photo-interpreter  scans  the  intelligence  data  and  draws  upon 
his  interpretation  experience  to  decide  what  information  to  transfer 
manually  to  the  data  base  under  construction.  These  decisions  are  made 
with  as  few  digital  computer  image  enhancement  techniques  as  possible. 

This  reticence  to  use  available  enhancement  routines  is  caused,  in  part, 
by  the  very  nature  of  the  automated  routines.  They  are  not  generally 
applicable  to  any  but  specific,  well -structured,  test  cases.  In  addition, 
use  of  these  techniques  requires  that  the  interpreter  also  be  a  computer 
expert.  Moreover,  the  interpreter  loses  control  and  visibility  of  what  he 
is  trying  to  accomplish  when  he  enters  the  computer  world  of  automated  land- 
use  classification,  or  pattern  recognition,  or  region  definition,  or 
etc.  These  reasons  have  serious  ramifications  for  feature  extraction,  and, 
consequently,  data  base  construction;  they  cost  money.  They  cost  money  in 
the  sense  that  it  takes  a  much  longer  time  to  extract  the  feature?  for  a 
data  base  than  might  otherwise  be  necessary;  data  are  manipulated  by  hand 
and  the  best  information  may  not  be  obtained. 

Clearly,  a  tremendous  improvement  of  the  product  developed,  resources 
expended,  and  time  required  could  be  obtained  if  a  workable  marriage  between 
computer  and  interpreter  could  be  arranged.  The  computer  is  very  good  at 
manipulating  vast  amounts  of  data  in  short  periods  of  time;  the  human  is  not 
The  human  is  beyond  comparison  when  it  comes  to  drawing  upon  learning 
experience  to  make  decisions.  The  computer  excels  at  clearly  defined  repeti 
tive  tasks,  at  statistical  analyses,  at  image  enhancements.  A  cooperative 
approach  in  which  the  human  is  used  to  make  decisions  and  guide  the  process- 
direction  of  the  software,  and  the  computer  is  used  to  manipulate  the 
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data  rapidly  and  easily  and  to  remove  the  drudge  from  the  human  would  be 
optimal --optimal  in  the  sense  of  maximizing  the  return  for  resources  expan¬ 
ded  and  minimizing  the  time  and  effort.  This  cooperative  approach  is  called 
interactive  feature  extraction. 

Interactive  feature  extraction  requirements  have  been  surveyed  and  a 
design  philosophy  has  been  developed  for  constructing  an  interactive  feature 
extraction  system.  In  this  design  philosophy,  the  computer  is  used  to 
display,  enhance,  manipulate,  and  otherwise  aid  the  interpreter  as  he  per¬ 
forms  his  function.  And  the  human  is  used  to  make  decisions  and  to  guide  the 
computer  in  real-time  as  the  programs  run.  Depending  upon  the  level  of 
sophistication  of  the  interactive  software,  and  the  computer  and  display 
complex,  tremendous  savings  of  resources  and  improvements  in  efficiency  and 
quality  of  the  finished  product  are  visualized. 

6.2.2  Develop  Theoretical  Scattering  Models 

The  recommendation  is  made  for  conducting  theoretical  electromagnetic 
scattering  studies  aimed  at  providing  solutions  to  specific  problems. 

The  increasing  applications  for  radar  image  simulation  require  ever 
larger  catalogues  of  backscatter  data.  All  radar  image  simulations  must 
use  some  model  for  the  reflectivity  properties  (backscatter)  of  the  objects 
in  the  scene.  These  data  are  required  by  the  simulation  model  to  produce 
the  greyscale  data  in  the  simulated  image.  It  is  not  reasonable  to  expect 
to  measure  and  record  the  backscatter  data  for  all  possible  permutations 
and  combinations  of  the  variables:  frequency,  polarization,  categories, 
seasonal  changes,  and  etc.  Theoretical  models  must  be  developed  both  to 
extend  and  extrapolate  the  measured  data  to  cases  which  have  not  been 
measured,  as  well  as  to  predict  the  scattering  response  theoretically. 
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6.2.3  Compile  a  Comprehensive  Listing  of  Snow  and  Ice  Backscatter  Data 

A  key  component  in  transforming  the  data  base  into  a  radar  image  has 
been  shown  to  be  the  backscatter  data,  the  microwave  reflectivity  model. 

It  is  recommended  that  a  comprehensive  listing  of  snow  and  ice  back¬ 
scatter  data  be  compiled.  The  result  of  this  effort  should  include  both 
empirical  backscatter  data  and  theoretical  models.  This  study  would  require 
a  brief  literature  search  to  gather  available  empirical  data  and  theoretical 
backscatter  models.  The  theoretical  models  should  be  evaluated  to  determine 
their  applicability  to  the  radar  image  simulation  problem  and  they  should  be 
examined  to  determine  techniques  to  extend  and  extrapolate  available  empiri¬ 
cal  data  across  frequencies,  polarizations,  and  depression  angles. 

6.2.4  Conduct  an  Empirical  Backscatter  Program 

The  question  of  whether  an  aseasonal  radar  simulation  of  target  sites 
such  as  Watertown,  New  York,  can  be  applied  to  a  summer  guidance  situation  has 
been  addressed  implicitly.  The  answer  to  this  question  is  no,  probably,  for 
the  choice  radar  frequency,  polarization,  etc.  simulated  in  this  project. 

This  question  could  alternately  be  answered  by  appeal  to  backscatter  data 
measurements.  The  Army  Engineer  Topographic  Laboratories  is  currently 
supporting  the  collection  of  snow  backscatter  data  through  the  University 
of  Kansas  Remote  Sensing  Laboratory.  Also  being  investigated  are  snow 
covered  grass,  concrete,  asphalt,  and  trees. 

6.2.5  Perform  a  Sensitivity  Analysis 

The  utility  and  versatility  of  radar  image  simulation  can  be  improved 
and  the  cost  reduced  if  the  minimum  level  of  detail  required  to  be  in  the 
data  base  for  specific  applications  of  radar  image  simulation  can  be  deter- 
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mined.  As  previously  noted,  the  most  expensive  part  of  the  radar  simulation 
process  is  the  building  of  the  digital  data  base.  If  it  can  be  determined 
that,  for  a  specific  application,  the  level  of  detail  in  the  data  base  can 
be  reduced,  this  translates  directly  into  savings  of  time  and  money.  It  is 
recommended  that  such  an  analysis  be  conducted  for  the  applications  of  radar 
image  simulation  most  often  used,  or  for  any  projected  high  use  application. 

The  radar  image  quality  metrics  being  developed  under  contract  to  the 
Army  Research  Ovvice  represent  a  potential  quantitative  a-proach  for  accom¬ 
plishing  this  objective.  They  present  a  way  to  relate  the  "goodness" 
criteria  of  an  application  to  the  simulation  data  base  via  predictive, 
mathematical  expressions.  A  possible  study  format  would  be  to  produce  a 
sequence  of  simulated  radar  images  having  step-wise  degraded  parameters  and 
evaluating  them  as  to  their  "goodness"  for  satisfying  the  application. 

This  predictive  expression  could  then  be  used  for  defining  the  level  of 
detail  required  to  be  built  into  a  data  base  for  that  application. 
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APPENDIX  A 


RADAR  REFLECTIVITY  DATA 
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WINTER  SC  ENE ,  ALL  HANDS 
TERRAIN  dACK SCATTER  0  A  f  A 
CATEGORY  IDENTIFICATION  NO 
HEAVY  DUTY  ROADS 


# INTER  SCENE*  ALL  dANOS 
TERRAIN  tiACKSCATTER  DATA 
CATEGORY  IDENTIFICATION  NO 
LIGHT  DUTY  ROADS 


WINTER  SCENE/  ALL  dANOS 
TERRAIN  HACKSCATTER  DATA 
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UNIMPROVED  ROADS 
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TERRAIN  BACKSCATTER  DATA 
CATEGORY  IDENTIFICATION  NO 
RAILROAD  TRACKS 


APPENDIX  B 


DESCRIPTION  OF  COMPUTER 
ROUTINES  FOR  DATA  BASE  CONSTRUCTION 
AND  RADAR  IMAGE  SIMULATION 
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Polar  Conversion  (Refer  to  Section  1.6.2  for  motivation) 


The  first  step  performed  by  the  sequence  of  computer  programs  illus¬ 
trated  in  Figure  3  is  POLAR  CONVERSION,  the  computer  program  for  converting 
the  rectangular  grid  matrix  of  the  ground  truth  data  base  into  a  polar 
array  which  is  compatible  with  the  scanning  format  of  the  PPI  radar  being 
modeled.  POLAR  CONVERSION  actually  consists  of  three  (3)  distinct  computer 
programs,  POLAR  CREATE,  POLAR  ARRAY,  and  ARRAY  FIX;  copies  of  these  pro¬ 
grams  are  provided  in  Appendix  C. 

Three  programs  have  been  developed  to  perform  the  straight-forward 
function  of  rectangular-to-polar  coordinates  conversion  in  order  to  minimize 
the  costs  of  performing  it.  The  first  program,  POLAR  CREATE,  is  a  highly 
computational  program  requiring  minimal  core  storage.  This  program  accepts 
as  input  a  ground  truth  data  base  stored  on  digital  magnetic  tape,  computes 
the  polar  address  (r,e)  of  each  point  as  it  is  read  from  tape,  performs  one¬ 
dimensional  compression  on  the  data  and  stores  the  data  sequentially  on 
an  intermediate  magnetic  tape.  Compression  arises  from  the  fact  that  the 
rectangular  version  (original  version)  of  the  data  base  contains  finer 
resolution  and,  consequently,  more  sample  points  than  are  desired  in  the 
polar  data  base.  The  number  of  elements  desired  in  the  final  polar  data 
base  (calculated  from  the  radar  resolution  parameters)  is  a  control  para¬ 
meter  input  to  the  program  and  is  used  to  quantize  the  polar  conversion 
calculations  and,  thus,  produce  a  mechanism  for  compression. 

The  second  program,  POLAR  ARRAY,  is  a  core-intensive  but  computation- 
ally-minimal  program.  This  program  accepts  as  input  the  intermediate 
magnetic  tape  output  from  POLAR  CREATE,  orders  the  data  from  the  sequential 
rectangular  file  to  the  correct  polar  array,  and  stores  this  on  an  inter¬ 
mediate  magnetic  tape.  Two-dimensional  compression  is  performed  by  this 
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program.  This  follows  the  same  philosophy  as  does  the  earlier  compression. 
The  category  data  are  compressed  on  a  priority  basis;  the  highest  priority 
category  brought  from  the  rectangular  data  base  for  each  polar  cell  is 
retained,  the  others  deleted.  Elevation  data  are  averaged.  The  elevation 
value  stored  in  any  polar  cell  is  the  average  of  the  elevation  of  all  the 
rectangular  points  which  were  mapped  into  it. 

The  third  program,  ARRAY  FIX,  was  created  to  rectify  the  problem  created 
by  the  fact  that  the  rectangular-to-polar-conversion  mapping  is  less  than 
one-to-one  in  the  center  portion  of  the  polar  data  base.  This  program  inter¬ 
rogates  the  nearest  filled  neighbor  to  determine  the  category  and  elevation 
of  a  polar  cell  found  empty.  Upon  satisfactory  operation  of  this  program, 
the  completed  polar  data  base  is  stored  on  an  intermediate  magnetic  tape. 

In  this  way  POLAR  CONVERSION  functions  to  convert  a  large  rectangular 
grid  matrix  data  base  into  a  smaller  polar  array  data  base  for  minimal 
cost.  Cost  is  minimized  because  the  amount  of  core  (a  high-cost  component) 
which  must  be  used  during  the  computationally- intensive  portions  of  the 
operation  is  reduced  to  the  bare-essential  amount.  The  output  of  POLAR 
CONVERSION  is  a  computer-compatible  magnetic  tape  containing  the  ground 
truth  data  base  arrayed  in  a  polar  format  with  the  correct  resolution  to 
support  directly  the  REFERENCE  SCENE  programs,  the  next  programs  which 
must  be  run. 

Reference  Scene  (Refer  to  Section  1.6.2) 

Reference  to  Figure  3  will  show  the  second  step  performed  is  REFERENCE 
SCENE,  the  computer  program  which  actually  performs  the  simulation  of  the 
guidance  radar  system  and  forms  the  desired  simulations  of  radar  images. 
REFERENCE  SCENE  actually  consists  of  two  (2)  computer  programs,  POWER  and 
GREYTONE;  copies  of  these  programs  are  provided  in  Appendix  C. 


Two  programs  have  been  developed,  instead  of  one,  to  minimize  the 
costs  and  improve  the  operational  efficiency  of  running  the  programs  many 
times.  The  first  program,  POWER,  is  a  computationally-intensive  program 
requiring  minimal  core  storage.  This  program  accepts  as  input  both  the 
polar  ground  truth  data  base  on  digital  magnetic  tape  from  program  POLAR 
CONVERSION  and  the  terrain  backscatter  data  input  via  a  data  statement, 
calculates  the  average  power  exiting  the  receiver  on  a  pixel-by-pixel 
basis  for  each  pixel  (picture  element,  previously  called  "point")  in  the 
final  scene,  and  stores  these  data  on  an  interim  magnetic  tape.  POWER 
recognizes  each  radial  record  in  the  polar  data  base  as  the  scan  line 
corresponding  to  the  energy  returned  from  one  pulse  of  the  radar,  each 
point  in  the  record  corresponds  to  a  resolution  element.  The  polar  data 
only  contains  a  record  for  successive,  independent  scan  lines  (pulses). 

The  PRF  (Pulse  Repetition  Frequency)  of  a  radar  system  is  normally 
quite  high  with  successive  pulses  producing  a  return  having  a  large  over¬ 
lap  with  several  preceding  pulses.  POWER  calculates  a  new  scan  line  (new 
pulse)  of  data  only  for  scan  lines  which  are  independent  of  one  another 
(they  do  not  overlap  each  other),  and  calculates  the  dependency  of  over¬ 
lapping  pulses  statistically.  This  is  done  in  order  to  minimize  both  the 
size  of  the  polar  data  base  and  the  computational  load  (and,  thus,  cost) 
required  to  produce  radar  reference  scenes. 

Similarly,  POWER  recognizes  each  point  in  a  scan  line  from  the  polar 
data  base  as  an  independent  resolution  element  in  the  radial  direction, 
and  calculates  the  data  relating  each  point  on  the  ground  to  a  pixel  in 
the  image.  Dependency  of  overlapping  samples  in  the  radial  direction  is 
statistically  incorporated  in  the  model. 
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For  each  point  in  the  data  base  (each  resolution  element  on  the  ground), 
POWER  solves  the  geometry  relating  the  position  of  the  radar  platform  (three- 
dimensional  position)  to  the  point  and  calculates  the  slope  of  the  terrain, 
and  the  angle  of  incidence  and  the  range  between  platform  and  point.  These 
calculations  are  made  sequentially  for  each  point  of  each  record  as  the  tape 
containing  the  polar  ground-truth  data  base  is  read  into  the  computer.  Upon 
determining  these  parameters  for  a  point,  POWER  enters  the  main  computational 
algorithm  of  the  program  which  calculates  the  average  power  exiting  the 
receiver  from  that  point.  This  calculation  of  power  uses  the  slope  of  the 
ground  (two-dimensional  slope),  the  angle  of  incidence  between  radar  and 
ground  (both  normal  and  local  angles),  the  range  from  platform  to  the  point 
on  the  ground  being  interrogated,  the  power  pattern  of  the  antenna,  the  cate¬ 
gory  identification  from  the  polar  data  base,  backscatter  data  from  the  o° 
file  (such  as  those  discussed  in  Section  4),  and  the  transmitter/receiver/ 
image  model  incorporated  for  the  radar  system  whose  response  is  being  simu¬ 
lated.  All  of  these  variables  and  parameters  are  combined  appropriately 
for  calculating  the  estimate  of  power  existing  the  radar  receiver  for  each 
point  on  the  ground.  In  this  way  POWER  calculates  the  average  power  exiting 
the  receiver  on  a  pixel-by-pixel  basis.  The  resultant  data  are  stored  on  an 
interim  magnetic  tape  for  further  processing  in  later  stages.  The  data  are 
ordered  sequentially  on  this  tape  in  the  same  form  as  the  polar  array  in 
which  the  polar  radar  data  base  was  input. 

The  second  program  of  REFERENCE  SCENE  was  developed  to  incorporate 
the  spatial  relationships  between  adjacent,  independent  cells  decreed  by 
the  antenna  pattern,  and  to  convert  the  resultant  estimates  of  power  into 
greytones.  This  program,  GREYTONE,  calculates  the  spatial  relationships 
between  cells  via  an  autocorrelation.  The  shape  and  length  of  the 
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autocorrelation  are  input  parameters.  Upon  completing  the  autocorrelation, 
GREYTONE  converts  the  data,  power,  into  density  values,  grey tones,  quantizes 
them  into  the  desired  number  of  bits,  and  biases  the  range  to  that  desired 
for  ultimate  storage  in  a  photograph. 

The  bias  required  to  display  a  desired  power  range  in  an  image  is  an 
input  parameter  to  GREYTONE.  The  desired  mapping  ratio  of  power  exiting 
the  receiver  into  density  in  the  photograph  is  also  an  input  parameter; 
the  portion  of  the  radar  dynamic  range  desired  to  be  mapped  into  the 
dynamic  range  of  the  photograph  (17-20  dB)  is  specified.  Thus,  upon  speci¬ 
fication  of  an  autocorrelation  function  shape  and  length,  and  quantizing 
parameters  (bias  and  mapping  ratio,  or  gain)  GREYTONE  operates  on  the  power 
map  input  via  digital  magnetic  tape  from  the  previous  program,  POWER, 
producing  the  greytone  map  of  the  final  image  on  a  pixel-by-pixel  basis. 

The  greytone  data  are  stored  on  an  intermediate  digital  magnetic  tape. 

The  stored  data  order  is  still  the  same  as  the  input  polar  radar  data  base. 

At  this  point  the  radar  image  simulation  work  is  complete,  but  the 
data  are  still  stored  in  a  polar  array.  The  following  program  converts 
these  data  from  polar  back  to  rectangular  coordinates  for  compatibility 
with  either  standard  raster-scan  format  display  devices  for  evaluation  or 
the  Correlatron  for  testing  purposes. 

Rectangular  Conversion  (Refer  to  Section  1.6.2) 

Reference  to  Figure  3  will  show  the  third  step  performed  is  RECTANGULAR 
CONVERISON,  the  computer  program  which  converts  the  simulated  radar  image 
from  a  polar  array  to  a  rectangular  grid  matrix.  RECTANGULAR  CONVERSION 
actually  consists  of  two  (2)  computer  programs,  RECTANGULAR  CREATE  and 
RECTANGULAR  ARRAY;  copies  of  these  programs  are  provided  in  Appendix  C. 


These  two  programs  exist  for  the  same  purpose  as  POLAR  CREATE  and  POLAR 
ARRAY  (see  Section  1.6. 2.1)  and  perform  the  inverse  operations  of  them. 
RECTANGULAR  CREATE  requires  input  specification  of  the  size  of  the  rectangu¬ 
lar  grid  desired  for  the  output  data.  The  size  of  this  grid  is  dependent 
upon  the  purposes  for  which  the  data  have  been  created.  If  the  data  have 
been  created  for  display  and  evaluation  purposes,  the  size  of  the  grid  is 
entirely  determined  by  the  size  of  the  area  to  be  viewed  and  the  size  limi¬ 
tations  of  the  display  device.  If  the  data  have  been  created  for  testing 
on  the  Correlatron,  the  size  of  the  output  grid  is  specified  to  be  921  x 
921  pixels.  Upon  specification  of  the  size  of  the  output  rectangular  grid 
matrix,  RECTANGULAR  CREATE  calculates  again  the  polar  address  (r,e)  of  each 
point  in  the  specified  rectangular  array  and  stores  these  data  on  an  inter¬ 
mediate  magnetic  tape. 

RECTANGULAR  ARRAY  requires  input  specification  of  the  data  format  of 
the  magnetic  tape  to  be  output.  For  display  and  evaluation  purposes,  the 
format  is  defined  to  be  raster  format  with  the  word  length  for  the  greytones 
of  each  pixel,  and  whether  a  positive  or  a  negative  is  desired  to  be  speci¬ 
fied.  For  testing  on  the  Correlatron,  the  output  format  is  defined  to  be: 

9  track  digital  magnetic  tape; 

1600  bpi ; 

921  records; 

921  pixels  per  record; 

0  corresponds  to  white; 

255  corresponds  to  black. 

Upon  specification  of  these  input  parameters,  RECTANGULAR  ARRAY  converts 
the  data  output  from  RECTANGULAR  CREATE  into  a  completely  specified  rec¬ 
tangular  grid  having  the  desired  output  format,  and  stores  these  data  on 
a  digital  magnetic  tape. 
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INITFIX  (Refer  to  Section  3.4  for  motivation) 


INITFIX  is  the  first  in  a  series  of  computer  programs  used  in  the  con¬ 
struction  of  the  digital  data  base.  The  purpose  of  this  program  is  to 
"clean  up"  the  input  from  the  digitizers,  eliminate  duplicate  points,  fill 
in  gaps  between  consecutive  points,  and  verify  the  input.  The  input  to 
INITFIX  is  a  series  of  logical  records,  each  representing  a  target.  Each 
logical  record  for  a  target  consists  of  a  header  record,  a  series  of  x,y 
coordinates,  and  an  end-of-target  marker.  The  header  record  for  each  tar¬ 
get  contains  the  category  and  feature  code  for  the  target.  The  feature 
code  identifies  the  type  of  target:  point,  line,  or  closed  boundary  (area). 
The  x,y  coordinates  define  the  location  of  the  target  with  respect  to  the 
coordinate  system  defined  by  the  digitizers.  The  end-of-target  marker  is 
the  coordinate  (-1,-1). 

Each  input  target  is  assigned  a  boundary  number  regardless  of  feature 
code.  INITFIX  consists  of  a  major  loop  which  processes  one  input  tape  each 
time  it  is  executed.  Inside  this  loop  is  the  "target"  loop  which  processes 
one  target  per  iteration  until  the  end  of  the  current  input  tape.  Inside 
the  "target"  look,  there  are  two  separate  loops:  the  "point"  loop  which 
processes  a  group  of  point  targets,  and  the  "area-line"  loop  which  processes 
area  targets  (closed  boundaries)  and  line  targets. 

Whenever  the  current  input  tape  reaches  end-of-file  unexpectedly,  the 
current  target  is  finished  up  and  an  error  message  is  printed.  Whenever  an 
error  message  is  printed,  subroutine  UPDATERR  is  called  to  save  the  error 
type  and  the  target  in  which  it  occurred.  This  is  done  so  a  summary  of  all 
errors  encountered  can  be  printed  to  a  separate  file  code  after  all  input 
tapes  have  been  processed.  The  reason  for  this  is  to  facilitate  the  human 
verification  of  the  program  execution. 


The  output  format  for  points  and  lines  consists  of  a  one-word  record 
containing  the  boundary  number,  followed  by  a  series  of  two-word  records, 
each  describing  a  point  in  the  target.  The  first  word  in  these  records 
contains  the  x-coordinate  of  the  point  and  the  second  word  contains  the  y- 
coordinate,  the  category,  and  the  feature  code  (1  for  points  and  3  for 
lines).  The  last  two-word  record  in  each  series  is  (-1,-1). 

The  output  format  for  areas  is  slightly  different  from  that  for  points 
and  lines.  The  format  consists  of  a  three-word  header  record  followed  by  a 
series  of  two-word  records.  The  header  record  contains  the  boundary  number, 
category,  and  feature  code.  The  first  word  in  each  two-word  record  contains 
the  x-coordinate  and  the  second  word  contains  the  y-coordinate.  As  for  points 
and  lines,  the  last  two-word  record  in  each  series  contains  (-1,-1). 

Execution  of  the  "target"  loop  begins  with  the  input  of  the  header 
record  for  the  next  target.  The  category  is  tested  for  being  the  reference 
point  category.  If  so,  subroutine  SKIPDUMP  is  called  to  skip  the  points  in 
the  target  (these  poinU  were  used  to  initialize  the  coordinate  system 
for  the  digitizing  table).  If  the  category  is  out  of  range  or  assigned 
the  "catch-all"  category  for  areas  without  categories,  an  error  message 
is  printed.  If  the  feature  code  is  out  of  range,  an  error  message  is 
printed  and  the  target  is  treated  as  being  a  set  of  point  targets.  Execu¬ 
tion  continues  depending  upon  the  feature  code  of  the  target. 

If  the  feature  code  identifies  the  target  as  being  a  set  of  point  tar¬ 
gets,  the  program  enters  the  "point"  loop  to  process  one  target  at  a  time 
until  the  end-of-target  record  (-1,-1)  is  read.  Before  entering  the  loop, 
the  counters  for  the  number  of  input  points,  duplicate  points,  and  output 
points  are  reset.  In  addition,  the  boundary  number  for  the  set  of  points 
is  written  to  the  point-line  tape.  Each  pass  through  the  "point"  loop 
performs  the  following: 


no 


(1)  A  point  is  read  and  tested  for  being  (-1,-1).  If 
it  is,  the  program  exits  the  "point"  loop. 

(2)  The  point  is  converted  to  the  proper  scale  and 
the  input  counter  is  incremented.  The  range 
of  the  point  is  verified  and  if  out  of  range, 
an  error  message  is  printed. 

(3)  The  point  is  compared  with  the  last  input  point. 
If  they  are  equal,  the  duplicate  counter  is 
incremented  while  the  "point"  loop  iterates 

for  the  next  point  target. 

(4)  The  point  is  saved  for  use  in  the  next  itera¬ 
tion  and  is  used  to  update  the  minima  and 
maxima  variables  for  points  and  lines. 

(5)  The  output  counter  is  incremented,  the  point 
is  written  in  the  point- line  format  to  the 
point-line  tape,  and  the  loop  is  executed 
again. 


Once  the  point  (-1,-1)  has  been  read,  the  program  exits  the  "point"  loop, 
writes  the  end-of- target  marker  to  tape,  prints  the  values  of  the  three 


counters,  updates  the  overall  counters,  and  returns  to  the  top  of  the 
"target"  loop. 


If  the  target  is  an  area  or  a  line,  the  program  enters  the  "area-line" 
loop  which  processes  one  point  of  the  target  each  time  it  is  executed. 

Before  the  loop  begins,  the  minima  and  maxima  variables  for  areas  are  reset 
and  the  counters  for  the  number  of  input  points,  duplicate  points,  output 
points,  points  filled  in,  and  calls  to  the  subroutine  to  fill  in  missing 
points  are  cleared.  The  first  point  of  the  target  is  read,  converted  to  the 
proper  scale,  and  saved  for  later  processing.  If  the  input  point  is  (-1,-1), 
then  the  "target"  loop  starts  again.  Otherwise,  the  boundary  number  is 
written  to  the  point-line  tape  if  the  target  is  a  line,  or  the  boundary 
number,  category,  and  feature  code  are  written  to  the  area  tape  if  the  tar- 
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get  is  an  area.  Next  the  "area-line"  loop  begins  and  these  actions  are 
taken: 

(1)  The  next  point  is  read  and  a  test  is  made  for  end-of- 
target.  If  it  is  the  end  of  the  target,  then  the 
loop  is  exited;  otherwise  the  point  is  scaled  and  the 
input  counter  is  incremented. 

(2)  The  range  of  the  point  is  verified  and  compared  with 
the  previous  input  point.  If  the  point  is  out  of 
range,  an  error  message  is  printed.  If  the  point  is 
a  duplicate,  the  duplicate  counter  is  incremented 
and  control  returns  to  the  top  of  the  "area-line" 
loop  for  the  next  point. 

(3)  The  previous  point  is  written  to  the  appropriate 
tape  and  the  output  counter  is  incremented.  If  the 
previous  point  is  not  adjacent  to  the  current  point, 
then  subroutine  CONNECT  is  called  to  fill  in  the 
missing  points. 

(4)  The  point  is  saved  for  the  next  time  through  and 
used  to  update  the  area  minima  and  maxima  variables 
if  the  target  is  an  area,  or  the  point-line  minima 
and  maxima  variables  if  the  target  is  a  line. 

Control  then  returns  to  the  top  of  the  loop  to 
process  the  next  point  in  the  target. 

Once  the  end-of- target  has  been  read,  the  loop  is  exited  and  if  the  first 
and  last  points  are  not  identical,  the  last  point  is  written  to  the  appro¬ 
priate  tape.  If  the  first  and  last  points  are  not  adjacent  and  the  target 
is  an  area,  then  CONNECT  is  called  to  fill  in  the  missing  points.  Next 
the  end-of-target  record  is  written  to  tape  and  the  overall  minima  and  maxima 
variables  are  updated.  Before  returning  to  the  top  of  the  "target"  loop, 
the  counters  and  minima  and  maxima  variables  are  printed  and  the  overall 
counters  are  incremented. 

The  target  loop  continues  until  the  end  of  the  current  input  tape. 

If  there  are  more  input  tapes,  the  "tape"  loop  begins  again  and  the  next 
input  tape  is  processed.  Once  all  of  the  input  tapes  have  been  processed. 
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the  overall  totals  are  printed  along  with  the  overall  minima  and  maxima  and 
a  summary  of  all  errors  encountered. 

AREAFIX  (Refer  to  Section  3.4) 

AREAFIX  is  the  second  program  used  in  the  construction  of  digital  data 
bases.  The  input  to  AREAFIX  is  the  output  from  INITFIX  for  area  targets. 

The  purpose  of  this  program  is  to  eliminate  single  points  that  are  tangent 
to  an  area  target,  eliminate  vertical  segments  in  the  target,  and  classify 
all  remaining  points  as  being  a  "top"  or  a  "bottom".  A  point  may  be  labeled 
as  such  by  examining  the  points  immediately  preceding  and  following  the 
points  to  be  classified.  Four  decision  matrices  were  developed  to  correctly 
classify  the  point  using  the  change  in  x  and  y  coordinates  between  the  three 
points.  The  algorithm  assumes  that  the  area  targets  were  digitized  clock¬ 
wise  and  generates  the  exact  opposite  classification  if  the  area  were  digi¬ 
tized  counterclockwise.  For  example,  consider  an  area  that  forms  a  perfect 
square.  All  the  points  in  the  bottom  row  would  be  classified  as  "bottoms" 
while  all  the  points  in  the  top  row  would  be  classified  as  "tops".  All 
points  in  the  two  side  columns,  except  for  the  endpoints,  would  be  discarded. 
Thus,  for  each  x-coordinate  of  the  area,  there  are  "bottom"  and  "top" 

y-coordinates  that  define  the  range  of  the  area  in  that  x-coordinate. 

Clearly,  there  is  no  need  for  vertical  segments  since  the  two  endpoints 
of  the  segment  define  it.  Inherent  in  this  concept  is  the  need  for  the 
elimination  of  single  points  tangent  to  the  area.  These  points,  if  not 
discarded,  would  result  in  an  x-coordinate  with  only  one  y-coordinate. 

This  is  undesirable  as  the  range  of  the  closed  boundary,  with  respect  to 
an  x-coordinate,  is  dependent  upon  pairs  of  "bottoms"  and  "tops"  for  that 
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x- coordinate.  The  output  from  AREAFIX  for  one  target  consists  of  a  one 
word  header  record  containing  the  boundary  number  followed  by  a  series  of 
two-word  records  trai led  by  (-1,-1).  The  first  word  of  each  two-word  record 
contains  the  boundary  number  and  the  x-coordinate.  The  second  word  con¬ 
tains:  1  bit  used  to  indicate  "top"  or  "bottom",  the  y-coordinate,  the 
category,  and  two  bits  for  the  feature  code  (always  a  2  for  areas). 

The  mainline  consists  of  an  outer  loop  that  processes  one  area  target 
at  a  time.  There  is  an  inner  loop  that  processes  all  the  points  in  one 
area,  other  than  the  first  and  last,  by  making  calls  to  the  sub-routine 
ASSIGN.  ASSIGN  determines  the  label  for  one  point  and  outputs  it  to  tape 
in  the  prescribed  format.  If  a  point  is  labeled  to  be  discarded,  it  simply 
is  not  written  to  tape. 

The  outer  loop  iterates  until  all  areas  have  been  processed.  This  loop, 
the  "area"  loop,  performs  these  tasks: 

(1)  The  category,  feature  code,  and  boundary  number 
(assigned  by  INITFIX)  are  input  from  tape  and 
printed. 

(2)  The  first  two  points  of  the  closed  boundary  are 
input  and  the  first  is  saved  to  be  processed  after 
the  last  point  in  the  area.  If  either  point  is  the 
end-of- target  marker,  an  error  message  is  printed 
and  the  "area"  loop  starts  again.  Both  points  are 
used  to  update  the  minimum  and  maximum  variables 
and  the  boundary  number  is  written  to  tape.  The 
positional  differences  between  the  first  and 
second  points  are  saved  to  be  used  when  the  first 
point  is  processed. 


(3)  The  counter  for  duplicate  points  is  cleared  and 
the  inner  "point"  loop  is  executed.  Upon  exit 
from  the  "point"  loop,  all  points  of  the  current 
area,  except  the  first  and  last,  have  been  pro¬ 
cessed. 
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(4)  The  last  arid  first  points  are  processed  and  the 
end-of-target  marker  is  written  to  tape. 

(5)  The  results  of  the  processing  are  examined  and 
printed.  If  fewer  than  four  points  were  input, 
or  the  number  of  "tops"  and  "bottoms"  were  not 
equal,  then  an  error  message  is  printed.  The 
number  of  tops,  bottoms,  and  discarded  points 
are  printed  along  with  the  number  of  duplicate 
points  and  the  total  number  of  output  points  is 
incremented.  Before  looping  back  for  the  next 
area,  the  array  to  count  the  classifications 

is  cleared. 

The  inner  loop  classifies  each  point  of  the  area  target  (except  the  first 
and  last)  one  at  a  time  in  the  following  fashion: 

(1)  The  next  point  is  read  and  compared  with  the 
most  recent  point  read.  If  equal,  the  dupli¬ 
cate  counter  is  incremented  and  the  inner 
loop  repeats.  If  the  point  is  the  end-of- 
target  marker,  then  control  exits  the  "point" 
loop  to  classify  the  first  and  last  points. 

(2)  The  point  is  used  to  update  the  minimum  and 
maximum  variables  and  ASSIGN  is  called  to 
classify  the  point. 

(3)  The  program  loops  back  to  process  the  next 
point. 

The  ASSIGN  subroutine  executes  sequentially  with  no  loops.  The  variable 
parameters  that  are  passed  to  the  subroutine  include:  the  current  point, 
the  positional  differences  between  it  and  the  preceding  point,  and  the 
positional  differences  between  it  and  the  next  point.  First  a  check  is 
made  to  insure  there  are  no  gaps  between  the  current  point  and  the  preced¬ 
ing  and  following  points.  The  point  is  classified  according  to  the  posi¬ 
tional  differences  that  are  passed  to  the  subroutine.  If  the  point  is  not 
labeled  "discard",  it  is  output  in  the  aforementioned  format.  Before  return¬ 
ing  to  the  mainline,  the  coordinates  of  the  point  are  incremented  to  yield 
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the  next  point  and  the  variables  for  positional  differences  between  the 
current  and  last  points  are  given  the  values  of  the  positional  differences 
between  the  current  point  and  the  next  point.  This  is  done  in  anticipation 
of  the  next  call  to  the  subroutine  which  will  process  the  next  point.  In 
addition,  the  counter  for  the  classification  of  the  point  just  processed 
is  incremented  prior  to  termination  of  the  subroutine. 

Once  the  last  area  has  been  processed,  the  program  exits  the  "area" 
loop  to  finish  up.  The  minimum  and  maximum  x-coordinates  are  printed 
along  with  the  total  number  of  points  output  and  a  summary  of  all  errors 
encountered. 

COUNT  AND  SORT  (See  Section  3.4) 

The  next  step  in  the  construction  of  the  digital  data  base  is  broken 
into  two  programs  for  more  efficient  resource  useage. 

The  first  program,  COUNT,  has  as  input  the  output  from  AREAFIX.  COUNT 
uses  one  array  to  count  the  number  of  points  having  the  same  x-coordinate. 

For  this  reason,  the  array  must  be  dimensioned  at  least  as  large  as  the 
domain  of  the  input  coordinates.  COUNT  consists  of  one  main  loop  to  process 
all  input  points.  There  is  an  isomorphic  mapping  from  the  domain  of  the 
input  points  to  the  elements  of  the  array.  The  program  requires  that  the 
array  have  at  least  twenty  more  elements  than  the  domain  in  case  there  is  an 
error  in  the  minimum  and  maximum  values  passed  to  it.  The  program  has  the 
capabilities  of  deleting  entire  targets  (as  some  are  mistakenly  digitized 
twice)  and  has  an  array  containing  the  boundary  numbers  of  the  targets  to  be 
deleted.  The  output  from  COUNT  is  all  done  via  a  subroutine  in  order  to  buffer 
the  output  to  decrease  the  execution  time  of  the  next  program,  SORT. 
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The  main  loop  reads  in  the  boundary  number  and  determines  if  it  is 
a  boundary  to  be  deleted.  If  so,  it  enters  an  inner  loop  which  reads 
points  until  (-1,-1)  is  encountered  at  which  point  it  returns  to  the  top 
of  the  main  loop.  If  the  target  is  not  to  be  deleted,  the  x-coordinate 
is  unpacked  and  the  corresponding  element  of  the  counting  array  (referred 
to  as  x-bins)  is  incremented  and  the  input  pair  are  written  to  tape.  Execu¬ 
tion  returns  to  the  top  of  the  loop  and  the  program  loops  until  the  end 
of  input.  Once  all  the  input  has  been  processed,  the  results  of  the  count 
are  written  to  a  file  and  the  program  terminates. 

The  second  program  in  this  step  is  SORT.  SORT  sorts  the  output  points 
from  COUNT  according  to  their  x-coordi nates.  Because  of  memory  limitations, 
the  program  must  make  several  passes  through  the  input  to  sort  it  all.  It 
is  for  this  reason  that  the  number  of  points  in  each  x-bin  must  be  known 
prior  to  sorting.  (This  is  accomplished  by  COUNT).  The  program  uses  three 
arrays:  a  large  two-dimensional  array  to  hold  the  sorted  data  pairs,  an 
array  of  pointers  to  the  sorting  array  for  all  x-bins  to  be  sorted  in  this 
pass,  and  an  array  of  flags  reflecting  whether  or  not  the  next  point  in  the 

corresponding  x-bin  will  start  a  new  target.  Similar  to  COUNT  there  is  a 

monomorphic  mapping  from  x-coordinates  (to  be  sorted  in  the  current  pass) 
to  the  elements  of  the  second  two  arrays. 

The  program  consists  of  an  outer  loop  which  performs  one  "pass"  through 
the  input,  and  two  consecutive  inner  loops.  The  first  inner  loop  determines 
which  x-bins  are  to  be  sorted  in  the  current  pass  and  the  second  inner  loop 

sorts  all  input  points  that  fall  in  the  domain  of  the  current  pass.  The 

program  passes  through  the  data  until  all  the  input  has  been  sorted  or  the 
number  of  passes  exceeds  a  user  set  variable. 


Before  the  outer  loop  begins,  the  expected  minimum  and  maximum  x-coordi- 
nates  are  read  from  tape  and  printed.  The  outer  loop  first  determines  the 
starting  x-coordinate  for  the  current  pass  and  enters  the  first  inner  loop. 

This  loop  reads  the  x-bin  counts  from  a  file  and  uses  the  counts  to  fill  the 
second  array  with  pointers.  The  second  array  then  contains  indices  to  the 
start  of  x-bins  in  the  sorting  array.  It  continues  until  the  number  of  points  in 
the  next  x-bin  will  not  fit  into  the  unallocated  portion  of  the  sorting  array. 

The  file  is  backspaced  so  the  next  pass  can  start  with  the  proper  x-bin  count. 

The  sorting  array  is  then  zeroed  out  and  the  input  is  rewound.  Information  con¬ 
cerning  the  current  pass  is  printed  out  to  paper  and  the  second  inner  loop  begins. 
This  loop  processes  one  two-word  record  in  each  iteration.  First  it  reads  the 
data  pair  and  extracts  the  x-coordinate  from  the  first  word.  If  it  is  -1,  then 

the  end  of  a  target  has  been  encountered  and  all  elements  of  the  flag  array 
are  set  to  indicate  "new  target"  and  the  loop  continues  to  read  the  next 
data  pair.  If  the  x-coordinate  is  not  -1,  then  it  is  tested  for  being  within 
the  domain  of  the  current  pass.  If  so,  the  index  into  the  sorting  array  is 
obtained  from  the  pointer  array  using  the  x-coordinate.  Before  storing 
the  two  words  into  the  sorting  array,  the  indexed  element  is  verified  as 
being  zero.  If  not,  an  error  occurred  in  the  allocation  of  the  array  so 
an  error  message  is  printed  and  execution  halts.  If  the  current  contents 
are  zero,  then  the  corresponding  entry  in  the  flag  array  is  tested.  If  non¬ 
zero,  then  this  is  the  first  point  of  the  target  in  this  x-bin  so  the  last 
two  bits  in  the  second  data  word  are  set  to  zero  and  the  flag  entry  is  reset. 
Finally,  the  two  data  words  are  stored  in  the  sorting  array  and  the  index  is 
incremented  and  restored  to  the  pointer  array.  Upon  exit  from  this  loop 
(end-of-file)  the  contents  of  the  sorted  array  are  written  to  tape.  For 
each  x-bin  sorted  in  the  current  pass,  one  variable  sized  record  of  all  data 
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pairs  in  that  x-bin  preceded  by  a  one-word  record  containing  the  x-bin  is 
output  to  tape.  Finally,  the  starting  values  for  the  next  pass  are  calcu¬ 
lated  and  execution  returns  to  the  top  of  the  main  loop  for  the  next  pass. 
The  program  loops  until  the  entire  domain  of  the  input  has  been  sorted. 

BUILD  (See  Section  3.4  for  motivation) 

At  this  point  in  the  construction  of  the  data  base,  the  digitized 
data  has  been  converted  into  a  series  of  x-bins.  Each  x-bin  is  comprised 
of  two  records,  the  first  record  being  one  word  containing  the  number  of 
points  in  the  x-bin,  and  the  second,  variable  in  length,  contains  two 
words  of  information  for  each  point.  Thus,  the  input  x-bins  to  BUILD 
are  of  the  following  form: 

nl: (yl  ,bl) , . . . ,(ynl,bnl) :n2,(yl,bl),. . . , (yn2,bn2) ; . . . 


where 


colon  (:)  =  represents  a  record  mark; 

y  =  is  one  word  with  the  following  information 

packed  into  it:  the  y-coordinate,  the 
category,  the  feature  code,  and  one  bit  for 
the  top/bottom  classification.  The  bit 
used  is  the  left-most  bit,  the  sign  bit, 
and  is  set  (=1)  if  the  point  is  a  top  and 
cleared  (=0)  if  it  is  a  bottom. 

b  =  is  one  word  containing  the  boundary  number 

assigned  by  INITFIX. 


The  output  from  BUILD  is  again  a  two-record  x-bin,  but  it  is  in  a  compact, 
ordered  format.  The  first  record  is  one  word  containing  the  number  of  words 
in  the  second  record.  Each  three  consecutive  words  in  the  second  record 
constitutes  one  descriptor  group  for  a  boundary.  The  first  word  in  a 
descriptor  group  contains  the  starting  y-coordinate  for  the  next  area.  The 
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second  word  contains  the  starting  y-coordinate  for  the  next  area.  The 
third  word  contains  the  category  packed  in  the  upper  half  and  the  boundary 
number  packed  into  the  lower  half  of  the  word. 

BUILD  first  reads  the  beginning  and  ending  x-coordinates  from  the 
input  tape  and  writes  the  total  number  of  columns  (end  is  -1,  begin  is  +1) 
to  the  output  tape.  The  program  enters  the  major  loop,  which  processes 
one  bin  per  iteration,  and  inputs  the  number  of  points  in  the  next  x-bin. 
Next  all  the  two-word  point  descriptors  ^ad  into  a  two-dimensional 
array  and  the  x-bin  number  and  number  of  points  are  printed.  The  program 
enters  an  inner  loop  which  processes  one  area  in  the  x-bin  during  each 
iteration.  Subroutine  SORT  is  called  which  sorts  the  points  of  the  next 
boundary  in  ascending  order  of  y-coordi nates.  SORT  stores  the  sorted  points 
into  the  Y  array  and  fills  in  the  TYPE  array  with  the  top/bottom  classifi¬ 
cation  of  the  corresponding  points  in  the  Y  array.  Presumably  the  TYPE 
array  should  contain: 

bottom,  top,  bottom,  top,  bottom,  top,  ...»  bottom,  top 

so  the  inner  loop  enters  a  deeper  loop  which  attempts  to  match  bottoms  and 
tops  in  the  Y  array.  Unfortunately,  because  of  the  slightest  digitization 
error,  the  points  don't  always  match  up  as  expected.  Because  of  this,  the 
deepest  loop  (which  processes  one  bottom-top  pair  per  pass),  tries  to 
account  for  some  errors.  The  user  can  control  the  amount  of  leeway  given 
in  error  conditions,  but  an  error  message  is  always  printed.  Each  time  a 
bottom- top  match  is  made,  a  three-word  descriptor  group  is  created  and  the 
innermost  loop  reiterates.  Once  the  current  boundary  of  the  x-bin  is  pro¬ 
cessed,  the  innermost  loop  terminates  and  the  inner  loop  reiterates  to 
process  the  next  boundary  in  the  x-bin.  Once  the  entire  x-bin  is  processed. 


the  inner  loop  ends  and  all  descriptor  records  created  for  this  x-bin  are 
output  to  tape  as  one  record.  The  record  is  preceded  by  a  one  word  record 
containing  the  total  number  of  words  in  the  descriptor-group  record.  The 
major  loop  then  repeats  to  process  the  next  x-bin. 

The  SORT  subroutine  performs  several  tasks: 

(1)  It  is  capable  of  deleting  entire  areas.  If  an  area 
is  to  be  deleted,  SORT  loops  through  the  points  in 
the  area  until  it  finds  the  first  point  in  the  next 
boundary  not  to  be  deleted  or  until  it  has  searched 
through  all  remaining  points.  If  the  next  boundary 
is  not  found,  the  subroutine  returns  with  the  para¬ 
meters  altered  to  reflect  this  condition. 

(2)  SORT  is  capable  of  reversing  tops  and  bottoms  in  a 
boundary.  Sometimes  it  is  the  case  that  an  area 
was  digitized  counterclockwise.  When  this  happens, 
all  of  the  top-bottom  classifications  assigned  by 
AREAFIX  are  exactly  opposite.  If  the  current  area 
in  the  x-bin  is  one  to  be  reversed,  the  values  for 
top  and  bottom  which  are  stored  in  the  TYPE  array 
are  swapped.  This,  in  effect,  reverses  all  of  the 
classifications  assigned  by  AREAFIX. 

(3)  SORT  sorts  the  current  boundary  in  ascending  order 
of  its  y-coordinates.  A  double  sort  is  used  with 
the  sorted  array  being  restored  into  the  input 
array.  If  two  points  have  the  same  y-coordinate, 
and  they  have  different  classifications,  then  the 
bottom  is  stored  before  the  top. 

(4)  SORT  fills  up  the  Y  and  TYPE  arrays  by  looping 
through  the  sorted  boundary  in  the  input  array. 

Each  pass  of  this  loop  extracts  the  y-coordinate 
and  type  from  the  input  array  and  stores  them  into 
the  Y  and  TYPE  arrays  respectively.  Finally, 

SORT  returns  to  the  mainline  with  the  parameters 
updated  for  the  processing  of  the  area. 


CATEGORY  AND  CULTURAL  MERGE  (See  Section  3.5  for  motivation) 

The  first  program  of  the  sequence,  CATEGORY  and  CULTURAL  MERGE,  differs 
markedly  in  purpose  from  the  other  two  programs  for  it  requires  that  cate¬ 
gory  information  actually  be  changed.  For  this  reason,  the  program  is 
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actually  a  modified  version  of  MERGE.  While  MERGE  started  the  processing 
of  each  record  with  an  empty  work  array,  the  modified  MERGE  first  reads  in 
a  record  of  the  already  completed  category  data  base  into  this  work  array, 
and  then  proceeds  to  process  the  data  for  the  cities.  This  effectively 
causes  the  completed  city  data  base  to  overwrite  the  old  category  data 
with  the  new  city  data.  The  processing  of  the  city  data  is  altered  from 
the  normal  MERGE  algorithm  so  that  where  MERGE  would  attempt  to  fill  in 
gaps  between  digitized  areas  whose  boundaries  do  not  exactly  coincide, 
the  modified  MERGE  ignores  these  gaps,  and  hence,  leaves  the  original  cate¬ 
gory  data  where  there  is  not  any  city  data.  After  the  processing  of  each 
record  of  city  data  is  completed,  the  program  checks  the  linear  and  point 
target  input,  to  determine  if  a  record  should  contain  any  roads,  railroads, 
or  houses  in  it,  and  if  it  should,  these  categories  are  used  to  overwrite 
whatever  category  is  at  the  designated  coordinate  in  the  work  array.  The 
work  array  is  then  output  to  tape  as  a  record  of  the  new  data  base.  The 
cultural  data  base  is  given  full  priority  over  the  category  data  base,  so 
that  it  replaces  whatever  category  might  be  found  in  the  category  data  base. 
This  insures  that  the  linear  targets  contain  no  breaks,  that  all  of  the 
point  targets  are  represented  in  the  data  base,  and  that  the  cities  are 
accurately  represented  in  the  new  data  base.  Therefore,  the  output  from 
this  program  is  an  accurate  merging  of  the  category  and  cultural  data  bases. 

This  new  data  base  is  then  used  as  the  input  to  the  next  program  ADD 
SNOW,  which  converts  the  field  numbers  to  category  numbers,  and  which  adds 
the  snow  data  base.  The  reassignment  is  necessary  for  several  reasons. 
First,  the  fields  in  the  category  data  base  were  given  numbers  which  not 
only  reflect  the  category,  but  which  also  allowed  easy  identification  of 
individual  fields,  enabling  easier  correction  during  the  construction  of 
the  category  data  base.  Further,  the  simulation  package  uses  the  category 
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numbers  as  indices  on  arrays,  and  hence,  the  category  numbers  should  be 
sequential,  starting  from  one  for  the  greatest  efficiency.  Finally,  as 
will  be  explained  later,  small  integers  were  preferred  as  indicative  of 
category  for  ease  of  packing  data  into  computer  words.  The  translation 
of  categories  is  accomplished  by  taking  each  point  and  using  it  as  an  index 
on  a  conversion  array  which  contains  the  new  category  to  be  assigned. 
Therefore,  the  program  reads  in  a  record  of  the  combined  category  and  cul¬ 
tural  data  base,  and  sends  each  point  in  the  array  through  the  conversion 
array.  Now  it  is  necessary  to  add  the  snow  data  in  such  a  way  as  to  allow 
the  simulation  package  easy  access  to  either  the  category  or  the  snow  data. 
This  is  accomplished,  along  with  a  savings  in  space,  by  packing  the  snow 
and  category  information  into  a  single  word.  The  snow  data  base  categories 
can  uniquely  be  packed  into  three  bits,  while  the  reassigned  categories  can 
be  packed  into  five  bits.  Therefore  after  the  record  of  the  category  data 
base  has  had  its  points  reassigned,  the  corresponding  record  of  the  snow 
data  base  is  read,  and  each  point  in  it  is  assigned  the  correct  three  bit 
code  which  is  actually  the  old  value  divided  by  ten.  The  new  snow  value 
is  then  shifted  left  six  bits  and  added  to  the  reassigned  category  value, 
and  restored  in  the  record.  After  the  whole  record  is  processed,  the  record 
is  written  to  tape.  This  tape,  then  contains  the  combined  category,  cultural, 
and  snow  data  bases. 

The  last  program,  ADD  ELEVATION,  requires  a  complete  elevation  data 
base  for  the  scene  and  data  base  produced  by  the  second  program  be  input. 

For  each  point  of  category  data,  the  appropriate  elevation  data  is  shifted 
left  18  bits,  and  then  added  to  the  category  data.  After  all  the  points 
in  a  record  have  been  processed,  the  record  is  then  output  to  tape.  This 
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is  the  final  tape  containing  the  complete  data  base  in  rectangular  coordi¬ 
nates  with  each  word  containing  the  elevation,  snow  depth,  and  category  type 
for  the  ground  spot  it  represents. 


/  v  2  fj .  / in  i  r  »-  ix 

1  c  i  n  i  r  i  t>  i  ;  f  .  x 

2  c 

3  c  i  :j  l  r  r  i  x  is  the  fiu^t  in  a  s  t «  i  e  ^  or  programs  u  s  t  d  to  create 

4  c  category  u*ta  bAiES.  input  to  this  p  k  c  g  r  a  m  is  a  series  of  two 

C  m  .)  R  l>  RECORDS,  DIVIDED  INTO  LOoICAL  GROUPS  (VARlAbLE  IN  SIZE). 

6  C  ETCH  LOGICAL  gKUUP  C  A  .x  OESCRIut  A  OLOScO  BOUNDARY,  A  LINE/  OR 

7  C  A  SET  OF  SINGLE  POINTS.  THE  FIRST  RECORD  OT  EACH  LOGICAL  GROUP 

6  c  contains  the  category  (first  word  in  record)  and  the  featjre 

)  C  CODE  (SECOND  WORD  IN  RECORD).  THE  FEATURE  CODt  IDENTIFIES  THE 

TO  C  LOGICAL  oROUP  AS  BEING  A  BOUNDARY  ,  LINt,  OR  SET  OF  POINTS.  T  Ht 

11  C  CATEGORY  IS  \/ALUE  ASSIGNED  i3  Y  Tut  DIGITIZERS  (OPTIONALLY  JNIvUE) 

12  C  TO  IDENTIFY  Tut  BOUNDARY,  LINE/  UR  SLT  OF  POINTS.  THE  LAST  RECORD 

15  C  IN  EACH  LOoICAL  GROUP  CONTAINS  TwJ  WORDS,  EACH  WITH  THE  VALUE  OF 

1  A  C  NEGATIVE  ONE  (-1).  BETWEEN  TFifc  FIRST  AND  LAST  RECORD  IN  EACH 

15  C  LOGICAL  GROUP  iS  A  SERIES  UF  TWO  WORD  RECORDS  EACH  REPRESENTING 

lib  C  A  SINoLE  POINT.  THE  FIRST  WORD  OF  THE  RECORD  IS  THE  X-COORDINATE 

1  7  C  AND  THE  second  WORD  or  THL  RECORD  IS  THE  Y - C GO R D 1 N A T E . 

1  B  C 

19  IMPLICIT  INTEGER  ( A- Y ) 

20  LOGICAL  DUMP  ,NGCO.vP,  SwiTCHXY 

21  C 

2 ’2  C****************************************************************»*** 

25  C 

24  C  COMMON  DtCLARATIONS/  DEFINITIONS/  AND  DESCRIPTIONS 

2  5  C 

2o  C 

2  7  COMMON  /USERVAKS/  SwiTCHXY/  ZSCALF.  /  CAT  MAX/  REFPTCAT/  NOCAT 

20  DATA  SWITCHXY,  ZSCALE  /  .TRUE.,  1U.533  / 

29  C  SwiTCHXY  -  TuIS  IS  A  LOGICAL  VARlAbLE  THAT  MJST  dE  SET  dY 

30  C  THE  USER.  IF  IT  Is  SET  (.TRUE.)/  THEN  THE 

51  C  X  AND  Y  COORDINATES  ARE  SWITCHED  AFTER  INPUT. 

32  C  E.G.  IF  (IOC/35)  IS  THE  hqinT  THAT  IS  READ  AND 


33 

C 

SwiTCHXY  IS  SET/  THEN 

ThE 

POINT  IS  PROCESS  D 

AS 

34 

C 

BEING  (35/100. 

35 

C 

Z  S  C  AL  c 

-  THIS  VARIABLE  MUST  dc 

SET 

BY  THE  USER  AND  IS 

USED 

3 b  C  TO  SCALE  ALL  X,Y  COORDINATES. 

37  C  CATMAX  -  THE  MAXIMUM  VALUE  A  C4TE3URV  CAN  dE  WITHOUT 

55  C  CAUSING  THE  PRuGRAM  TO  ISSUE  A  WARNING  MESSAGE. 

39  C  REFPTCAT  -  CATEGORY  DESIGNATED  dY  THE  DIGITIZERS  FOR  REFERENCE  POI 

'.0  C  WHEN  SETTING  UP  ThE  DIGITIZER. 

41  C  No CAT  -  CATtGokY  ASSIGNED  OY  THt  DIGITIZERS  TO  TARGtTS  THAT  wER 

42  C  NOT  GIVEN  A  CAT t GORY 

4  3  C 

4  4  C 

45  COMMON  /TOTALS/  SINGLPTS,  DuPLPTS,  PTSREAD,  PToOUT 

4s  DATA  SIVGLPTS/  DUF'LPTS/  PTSREAD/  FTSOuT  /  4*0  / 

47  C  SINCLPTS  -  THE  TOTAL  NuMbtR  SINGLE  POINTS  (FEATURE  CODE  IS 

43  C  PT )  THAT  ARE  OUTPoT. 

4  V  C  DUPLPTS  -  THE  T01AL  NUMBER  OF  DUPLICATE  POINTS  READ/ 

50  C  REGARDLESS  OF  THE  FtARUKE  CODE. 

51  C  PTSREAD  -  ThL  TOTAL  NUMBER  OF  POINTS  T  HAT  hAVE  BEEN  READ, 

52  C  REGARDLESS  OF  Thl  FEhTURE  CODE. 

53  C  PTSOUT  -  THE  TOTAL  NUMBER  OF  POINTS  WRITTEN  TO  TAPE 
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COMMON  /STATS/  XMAX#  XMIN#  Y'lAX,  YMIN 

DATA  XMAX#  Y  M  A  X  #  XMIN#  YMIN  /  Ml,  2*10()UU0  / 

XMAX  -  THE  MAXIMUM  X-COOKDINATE  OF  FEAT  U  K  E  CODES  AREA  AND  LINE 

XMN  -  THE  MMNFi  X-CUORDIMATE  uF  FEATURE  CODES  AREA  AND  LINE 

YilAX  -  Tilt  MAXIMUM  Y-COORD1NA  TE  OF  FEATURE  CODES  AREA  AND  LINE 

YMIN  -  THE  MINIMUM  Y-COORDINATE  OF  FEATURE  CODES  AREA  AND  LINE 


COMMON 

DATA 

XMAXPT 

XMINPT 

YMAXPT 

YM I NPT 


/  P  T  ST  ATS/  XMAXPT#  XMINPT#  YMAXPT#  YMINPf 


/  2*0  #  2*1  00000/ 
FEATURE  CODE  P  T . 


XMAXPT#  YMAXPT#  XMINPT#  YMINPT 

-  the  maximum  x-coordinate  of 

-  THE  MINIMUM  X-COORDINATE  OF  FEATURE  CODE  PT. 

-  the  maximum  y-cookdi na te  of  featjre  code  pt. 

-  THE  MINIMUM  Y-COORDINATE  OF  FEATURE  CODE  PT. 


Common  /cnctstat/  tconctr#tconpts#maxconct#conpt#conctr 

DATA  TCONCTR#  TCCNPTS#  MAXCONCT  /  2*0#  200  / 

TCONCTR  -  THE  TOTAL  NUMBER  OF  CALLS  TO  SUBROUTINE  "CONNECT” 
TCONPTS  -  THE  TOTAL  NUMBER  OF  POINTS  GENERATED  BY  SUBROUTINE 
"CONNECT" 

MAXCONCT  -  THE  IS  VARIABLE  MOST  BE  SET  BY  THE  USER  AND  IS  JSED 

AS  ThE  MAXIMUM  NUMBER  OF  POINTS  ThAT  CAN  BE  GENERATED 
BY  ANY  ONE  CALL  TO  SUBROUTINE  CONNECT  WITHOUT  ISSUING 
AN  ERROR  MESSAGE. 


COMMON  /IF'/  INPUT#  TOTINPUT#  ENDMARK 
DATA  INPUT#  TOTINPUT#  ENDMARK.  /  7,  1#  -1  / 

INPUT  -  FILE  DESIGNATOR  OF  CURRENT  INPUT  FILE 

THE  FILE  DESIGNATOR  OF  THE  FIRST  INPUT  FILE  MUST  =  7 
TOTINPUT  -  TOTAL  NUMBER  OF  INPUT  FILES.  MUST  bE  SET  BY  USER! 
ENDMARK  -  VALUE  USED  TO  MARK  THE  END  OF  A  BOUNDARY  (  USUALLY  -1) 


COMMON  /ERRORS/  ERRLIST  (A#19)#  ERRCOUNT 
DATA  (E RRL I  ST  (  1  #  I) #  1=1#A)  /  A+j  / 

ERRLIST  -  EACH  OF  THE  FOUR  ROWS  OF  THIS  TWO-DIMENSIONAL  ARRAY  IS 
IS  USED  TO  KEEP  TRACK  OF  A  DIFFERENT  TYPE  OF  ERROR. 
COLUMNS  2-19  OF  EACH  ROW  CONTAIN  THE  "UNIOUE"  NUMBERS 
OF  TARGETS  IN  WHICH  AN  ERROR  WAS  ENCOUNTERED.  COLUMN  1 
OF  EACH  ROW  CONTAINS  AN  INDEX  TO  THE  NEXT  AVAILABLE  WORD 
IN  THAT  ROW.  ONCE  THE  ROW  IS  FILLED#  IT  IS  WRITTEN  TO 
REPORT  CODE  52  (CIA  "PRINT")  ALONG  WITH  AN  APPROPRIATE 
MESSAGE.  HERE  ARE  THE  A  TYPES  OF  ERRORS  REMEMBERED: 

ROW  1:  SUBROUTINE  "CONNECT"  GENERATED  MORE  THAN 

"MAXCONCT"  POINTS  w  HE  N  CONNECTING  TWO  POINTS. 

ROW  2:  CATEGORY  ERRORS 

ROW  5:  FEATURE  CODE  ERRORS 

ROW  A:  ERRORS  WITH  X#Y  COORDINATES 
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20. 76  A 


I  N  l  T  F  i  X 


LAfc 


107  C 

101  C 

109  DATA  LINE#  AREA*  PT*  AREATAPE/  PTLINTAP/  1*  2*  3*  1*  2/ 

110  C  AREA  -  Feature  C0r>E  FOR  CLOSEu  boundaries 

111  C  LIME  -  F  F  A  r  UR  c  CODE  FOR  LIME  TARGETS 

112  C  PT  Ft-ATUkL  CODE  FOR  POINT  TARGETS 

1*13  C  AREATAPE  -  OUTPUT  FILE  DESIGNATOR  FOR  AREA  TERGETS 

114  C  PTLINTAP  -  OUTPUT  FILE  DESIGNATOR  FOR  POINT  AND  LINE  TARGETS 

1.1  5  C 

1  1  a  C 

117  DATA  STRTJNIQ/  DUMP/  NODUMP  /  1*  .TRUE.*  .FALSE.  / 

115  C  STRTUNIQ  -  THIS  VARIAdLE  MUST  JE  SET  BY  THE  USER!  TO  AID  IN 

119  C  LATER  PROCESSING/  EACH  LOGICAL  GROUP  IS  ASSIGNED  A 

120  C  A  UNIQUE  NUMBER  ("UNIQUE").  "STRTUNIQ"  DEFINES  THE 

121  C  INITIAL  VALUE  OF  "UNIQUE"  FOR  THIS  RUN  OF  THE 

122  C  PROGRAM.  THIS  IS  NECESSARY  TO  INSURE  THE  UNIQUENESS 

123  C  OF  THE  " UNIQUE "S  w  HEN  THIS  PROGRAM  IS  RUN  MORE 

124  C  THAN  ONCE  FOR  A  SINGLE  DATA  BASE. 

125  C 

126  WK  ITE  (6/1  )  ‘RESULTS' 

127  PRINT  1 /  ‘ ERRORS' 

123  CALL  WRITER  (  A  RE  AT  AP  E  /  2  /  S W  I  TC  HX  Y  /  E f.  DM  A R  K) 

129  IF  (.NOT.  SwITCHXY)  Q 070  10 

130  W R I 1 E ( 6 / 3 )  1 

131  PRINT  3 

1  32  C 

133  10  UNIQUE  =  STRTUNIQ  -  1 

1.3  4  C 

135  C 

136  C  THIS  IS  THE  TOP  OF  THt  LOOP  THAT  PROCESSES  ALL  OF  THE  INPUT  TAPES 

13  7  C 

136  100  UN  IQUE= UNIQUE  +  1 

1  39  C 

140  C  GET  CATEGORY  AND  FEATURE  CODE.  "GETCAT"  RETURNS  CONTROL  TO  STATEMENT 

141  C  LABELLED  "300"  UPON  EOF  OF  ALL  INPUT  FILES 

14  2  C 

1  4  j  CALL  GETCAT  ( UN  IQ U E / L A TGO R Y / F T C D / $3 00 ) 

144  C 

145  C  READ  THE  FIRST  (X/Y)  PAIR.  IF  THERE  ARE  NO  POINTS  FOR  THIS  BOUNDAR 

14a  C  (I.E.  (-1/-1)  WAS  READ)  OR  EOF  WAS  ENCOUNTERED/  CONTROL  IS  RETURNED 

147  C  FROM  "GETXY"  TO  THE  STATEMENT  LABELLED  "200"  TO  OUTPUT  A  WARNING. 

148  C 

14V  CALL  GE1XY  ( X  /  Y  /  Z  S  C  A  LE  / 'i2  00  /  4.  2  00  ) 

150  C 

151  C  WRITE  BOUNDAkY  HEADER  RECORD  TO  TAPE 

’52  IF  (  F  T  C  D  .EQ.  AREA)  CALL  WRITER  (  A R E A T A P E / 3  /  UN  I Q UE /C AT GOR Y / F T C D ) 

153  IF  (  F  T  C  D  .NE.  AREA)  CALL  WRITER  (  P  T  L  I  N  T  A  P/ 3  /  U  N  I  Q  UE  /  C  AT  G  OR  Y  ,  F  T  C  D  ) 

1  34  C 

r5  5  IF  (FTCD  .EQ.  PT) 

156  a.  CALL  POINT  (  UN  I  UU  E /X  /  Y  /  ZS  C  A  LE  /  P  T  L  IN  T  A  P  ,  $  3  00  ) 

157  I F ( F  T  C  D  .EQ.  LINE) 

153  i  CALL  AREAL  I NE (UNIQUE/X /Y/Z  SCALE/PTL I NTAP/S3C0) 

159  I  F  (  FTCD  .EQ.  AREA) 
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-79  20 „ 76  a  I  6  I  T  F  IX  LAB* 

1  60  a,  CALL  AREAL  1 NL (UNIQUE /X # Y #Z SC  ALE / AREAT APE, $300) 

161  GOTO  100 

162  C 

163  C 

164  C  COKE  HERE  WHEN  THE  ENDING  DELIMITER  C  - 1  #  -  1  )  IS  READ  AS  THE  FIRST 

S&j  C  POINT  OF  ANT  KIND  OF  BOUNDARY 

166  C 

167  200  WRITE(6,201> 

I  62  CALL  UPDATEPR  (4,  UNIQUE#  NODUMP) 

169  GOTO  100 

170  C  WHEN  ALL  PkOCESSING  IS  DONE  #  ai  R I  T  E  OUT  THE  TOTALS. 

171  C 

172  300  WRITE  (6/302)  PTSOUT 

173  WRITE (o#303)  DUPLPTS 

7  4  WRITE  (6/304)  X  MA  X  /  X  A I  N  /  Y  iM  A  X  #  Y  M  I  ,\l 

7  3  WRITE (6/305)  TCONCTR#  TCONPTS 

76  WRITE(6/306)  SINGLPTS 

77  WRITE (6/307)  XKINPT,  XMAXPT,  YMINPT,  YMAXPT 

73  DO  310  1  =  1/4 

79  310  CALL  JPOATERR  (I#  0/  DUMP) 

LOOP  INDEX  I  MAY  NOT  BE  REDEFINED  IN  CALL  OR  ABNORMAL  FUNCTION 

80  WRITE (6/3U8)  ERRCOUNT 

81  IF  (ERRCOUNT  .  EG .  0)  PRINT  3u9 

82  C 

83  C 


o  4 

STOP 

85 

1 

FORMAT 

C  1  * // / 59X, '  I  N  I  T  F  I  X*  /59X/A13///) 

66 

3 

FORMAT 

( IX  #4C  (  •* 

')/'  NOTE:  X  (,  Y  VALUES  WILL  BE  S W I T C H E 0  * / 4 0  (  ' *  *  )  ) 

87 

201 

F  OkMAT 

(  •  ***** 

THIS  BOUNDARY  HAD  NO  POINTS  ***♦*•) 

83 

302 

FORMAT  ( 

•IOTAL  ft 

OF  PTS  WRITTEN  To  TAPE  =',I5) 

89 

303 

FORMAT  ( 

•total  A 

OF  DUPLICATE  PTS  =’,I5) 

90 

304 

FORMAT  ( 

'MAX  AND 

MIN  PTS  OF  ALL  PTS  WRITTEN  TO  TAPE 

='#4(110/ IX)) 

91 

305 

FORMAT  ( 

•total  n 

OF  CONNECTS  =',110,'  &',I10,'  TOTAL 

A  PTS  C  N  T  E  D  '  ) 

92 

306 

FORMAT  ( 

•TOTAL  A 

OF  INDIVIDUAL  POINT  TARGETS  =',I10) 

93 

507 

FORMAT 

(15X/'LINE  AND  POINT  TARGETS' #1  OX#  '  X  M  I  N 

X  M  A  X  '  # 

94 

N 

'  Y  M  I  N 

Yfr'AX' /45X/4I8) 

95 

306 

FORMAT 

(///1X/I10#'  ERRORS  WERE  ENCOUNTERED  IN  THIS 

run') 

96 

30  9 

FORMAT 

(IX/'**** 

*  NO  ERRORS  DISCOVERED  ♦****') 

97 

END 

123 


7  9  20.769  ********  POINT  f  A  R  6  £  T  PROCESSING  ********* 

1  C  POINT  ********  POINT  TARGET  PROCESSING  ********* 

2  C 

3 

A  C 

5 

o  C 

7 
d 
9 

1  0  C 

1  1  c 

1  2 
1  3 
1  A 

1  3  C 

16  C 

1  7  C 

1  6  C 

1 9  C 

20  C 

21  C 


2  2 

300 

CALL  GtTXY  (  X,  Y,  ZSCALE,  $340,  $350) 

23 

READPT  =  READPT  +  1 

2  4 

C 

25 

C  OMIT  DUPLICATE  POINTS. 

26 

IF  (TEMPX  .NE.  X  .OR.  TEMPY  .Nt.  Y)  GOTO  330 

2  7 

OUPCTR  =  DUPCTR  +  1 

2d 

GO  TO  300 

29 

C 

30 

C 

31 

C 

UPDATE  MIN  AND  MAX  X  VALUES  FOR  SINGLE  POINTS 

32 

C 

33 

33  0 

IF  (X  .GT.  XNAX)  XMAX  =  X 

3  A 

If  ( Y  .61.  YMA  X)  YMAX  =  Y 

35 

IF  (X  .LT.  XMIN)  X  M I N  =  X 

56 

IF  (Y  .LT.  YMIN)  YMIN  =  Y 

37 

C 

36 

SINGLCTR  =  SINGLCTR  ♦  1 

39 

CALL  WRITER  ( T AP EOU T , 2 , T EM P X , TE MP Y ) 

40 

C 

41 

TEMPX  =  X 

42 

TEMPY  =  Y 

43 

GOTO  300 

44 

C 

45 

C 

THE  INPUT  FILE  HAS  REACHED  THE  END  (EOF)  BEFORE 

THE 

ENDING  DELIMI TER 

46 

C 

WAS  READ.  OUTPUT  A  MESSAGE  AND  CLOSE  UP  THIS 

LI  ST 

OF  POINTS. 

4? 

c 

4  3 

34  0 

WR I TE (6,34 1 ) TEMPX, TEMPY 

4  9 

341 

FORMAT (//,'<*><*><*>  EOF  BEFORE  DELIMITER  ON 

POINTS  '  ) 

50 

CALL  UP  D AT  E  «R ( 4,UN1GUE , NODUMP ) 

5  1 

C 

52 

C 

THE  ENDING  DELIMETER  -1,-1  IS  WRITTEN  TO  TAPE. 

5  3 

c 

S  U  6  R  0  U  T  I  *  J  E  POINT  (U N IQUE, TEMPX, TEMPY, ZSCALE, TAPE  OUT,*) 
IMPLICIT  INTEGER  (A-Z) 

COMMON  /IN  /  INPUT  ,  TOT INPUT/ EN  DM  ARK 

COMMON  /TOTALS/  SINGLPTS,  DUPLPTS/  PTSREAD,  PTSOUT 
COMMON  /PTSTAT/  XMAX,  XMIN,  Y  M  A  X  ,  YMIN 

POINT  TARGET  INITIALIZATIONS 
SINGLCTR  =  0 
DUPCTR  =  0 
READPT  =  1 


THIS  IS  THE  TOP  OF  THE  LOOP  WHICH  PROCESSES  POINT  TARGETS 
CONTROL  CAN  EXIT  THIS  LOOP  ONLY  VIA  AN  ALTERNATE  RETURN  FROM  THE 
SUBROUTINE  "GETXY".  UPON  END-OF-FILE,  CONTROL  IS  RETURNED  TO  THE 
STATEMENT  LABELLED  "340".  WHEN  A  (-1,-1)  IS  READ  BY  "GETXY", 
CONTROL  IS  RETURNED  TO  THE  STATEMENT  LABELLED  "350". 
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•  n 

20.769 

********  P  0  I  <Ni  T  lAHuc  F  PR  OC  E  S  S  I  NG  *  *  * 

5  i. 

3  D  Li 

CALL  MR  I  T  E  k  (  TAPE0UT/2»T£MFX*T  c  1 P  Y  ) 

55 

CALL  MR  I T  E  k  (  TAPEOUT^jENDiVARK^ENDMARtO 

5  6 

C 

5  7 

SINCLPTs  =  SINGLPTS  +  SINGLCTR 

56 

prsour  =  ptsout  +  singlctr 

59 

PTSKEAD  =  PTSREAD  +  READPT 

60 

C 

51 

MRITE(6,<51)SINGLCTK,DUPCTR 

t>2 

351 

FORMAT ( / ,1  OX, I 6/ *  SINGLE  POINTS  ',16,'  DUPLICATES') 

63 

RE  TURN 

64 

emu 

3-79  20.  769 


1  C 

2  C 

5  C 

4  C  *******  PROCESSING  FOR  LINE  A  .MU  AREA  TARGETS  *  *  *  *  * 

3  CARE  A  LINE  AREA  LINE  PROCESS  AREAS  AND  LINES 

o  C 

7  SUBROUTINE  AREALINE  (UNIOUE, TEMPX, TEMP Y, /SCALE, FILECD,*) 


a 

IMPLICIT  INTEGER  (A-Y) 

? 

COMMON  /  IN  /  INPUT  ,  TOT  INPUT  ,  EN  DM  A  R  < 

‘id 

COMMON  /TOTALS/  SINGLPT  S,DUPLPT  S  ,  P  T  SREAD,r’TSOUT 

1  1 

COMMON  /STATS/  T XM A  X , T X M I N , T Y MA X , T YM I N 

1  2 

COMMON  /  CNCTSTAT/  T  C  ON  C  T  R  ,  TC  ON  P  T  S  ,  K  A  X  C  ON  C  T  ,  C  0  N  P  T  ,  C  0  N  C  T  R 

1  3 

DATA  PTLINE  /  2/ 

1  A 

RE  A  OP  T  =  1 

1  5 

TAPECTR  =  0 

1  6 

OUPCTR  =  0 

1  7 

CONPT  =  0 

i  a 

CONCTR  =  0 

1  9 

CONAREA  =  TCON  PTS 

2  0 

XMAX  =  0 

21 

XM 1 N  =  100000 

22 

YMAX  =  0 

23 

YfilN  =  1U00G0 

24 

C 

25 

C 

SAVE  THE  STARTING  POINT 

26 

XSTR  =TEMPX 

27 

YSTK  =  TEMPY 

.2  0 

c 

29 

c 

LOOP  TO  READ  IN  X,Y  COORDINATES  AND  PROCESS  THIS 

AREA 

OR  LINE 

30 

c 

'31 

510  CALL  GETXY  (X  ,  Y , i S C A LE , 4 5 5 0 ,i 54 0 ) 

32 

READPT  =  READPT  +  1 

33 

c 

34 

c 

CHECK  TO  SEE  IF  DUPLICATE  POINTS.  IF  SO  SKIP  IT 

AND 

READ 

35 

c 

IN  ANOTHER  POINT. 

36 

c 

3  7 

IF  (TEMPX  .  ij  E .  X  .OR.  TEMPY  .NE.  Y)GO  TO  530 

3d 

DUPCTR  =  D  U  PC  T  R  ♦  1 

39 

GO  TO  513 

40 

c 

41 

c 

CHECK  THE  ABSOLUTE  DIFFERENCE  iETwEEN  X  AND  Y  TO 

SEE 

IF 

42 

c 

A  GAP  IS  PRESENT.  IF  SO  CALL  CONNECT  SUB  WHICH 

FIXES 

THE 

43 

c 

AREA  AS  LONG  AS  THE  GAP  IS  NOT  OVER  10  PTS.  IF 

OVER 

10  PTS. 

44 

c 

AN  ERROR  MESSAGE  IS  WRITTEN  OUT.  THIS  HELPS  DECIDE  WHETHER 

4  5' 

c 

THE  END  DELIMETERS  WERE  FORGOTTEN. 

.4  6 

c 

4  7 

530  CALL  WRITER  ( F ILECD, 2, TEMPX, TEMPY) 

4  d 

TAPECTR  =  1APLCTR  +1 

•4  9 

I F ( IAbS (X- TEMPX)  .GT.  1  .OR.  I ABS  <  Y- TEMPY)  .GT 

.  1)CALL 

5  0 

&  CONNECT (TEMPX, TEMPY,  X,Y, FILECD) 

51 

TEMPX  =  X 

52 

TEMPY  =  Y 

53 

c 
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54 

55 

56 

5  7 
56 
59 
o  0 

6  1 
62 
6  5 
6  4 

65 

66 
6  7 
66 

6  9 

7  0 
71 
7  2 

73 

74 

75 

76 

77 

78 

79 
30 
al 
82 
63 


87 
63 
89 
9  0 
91 
9? 
93 
9  4 

95 

96 

97 
93 
99 

100 
1  01 
1  0  2 
103 

1  J4 

1  03 
1  06 


C 


c 

r 

CALCULATES 

THE 

f.lwUMUN  AND  MAXIMUM  PTS. 

OF  X 

AND  Y  . 

V 

I F ( TEMP  X 

.  GT. 

XMAX ) XMAX  =  TEMPX 

IF (TEMPX 

.LT  . 

XM IN ) XMIm  =  TEMPX 

I F ( TEMP  Y 

.  G  1  . 

Y  M  A  X  )  Y  Ml  A  X  =  TE.-IPY 

I F ( TEMP  Y 
GOTO  510 

.  L  T  . 

YMIN) YMIN  =  TEMPY 

C 

UJ 

-J 

LX. 

Ik 

c 

rs 

j 

WAS 

ENCOUNTERED  UN  THE  INPUT 

TAPE 

UEFORt  THE 

Ending 

C 

DEL IMI  TE  R 

(-1, 

-1)  WAS  READ.  OUTPUT  A  MESSAGE 

AND  CLOSE 

OP  THE 

C 

OUPOT  STRI 

NG 

c 

540  WRITE (6,541  )  T  EMPX, TEMPY 
541  FORMAT  <//,'  <*><*><*>  EOF  aEFORE  DELIMITER  ON  AREA1) 

CALL  UP  DATE  HR ( 4/UNDC TR,NODUMP ) 

RETURN  1 
C 
C 

C  THE  TRAILER  FOINT  (-1,-1)  HAS  JtEN  READ.  EXECUTION  CONTINUES  HERE 
C  TO  FINISH  UP  THIS  ARt  A  OR  LINE 

C 

550  IF  (XSTR  .  NE.  TEMP  X  .OR.  YS1R  .  NE.  TEMPY)  GOTO  5  60 
D UP c r  R  =  dupctk  +  1 
GOTO  5o0 
C 

C  THE  FINAL  POINT  AND  THE  STARTING  POINT  ARE  DIFFERENT  SO  WRITE  THE 
C  FINAL  POINT  (TEMPX,  TEMPY)  TO  TAPE 

C 

560  CALL  WRI I ER (  F  ILE L  D  , 2  , T  EM PX  ,  T  E  HP  Y  ) 

TAPECTk  =  TAPECTR  +  1 

IF  (FILECD  .ED.  PTLINE)  GOTO  530 

IF  ( I AuS ( TE MPX-X STR)  .LE.  1  .AND.  I  Ad S ( TE MP Y- YS TR  )  .LE.  1) 
i  GOTO  5  30 

CALL  CONNECT  (TEMPX, TEMPY/XSTR/YSTR/F  ILECD) 

IF (IADS  (TEMPX-XSTR).GT.  MAXCONCT.OR. I  A  3  S (TEMPY-YSTR).uT.MAXCONCT) 
i  WRI TE ( 6/561 )  1 A 6 S ( T EMPX -XS  TR ) / I AbS ( T tMP Y-Y S  T R ) 

561  FORMAT  ('<*><*  ><*>  START  AND  END  POINTS  ARE  FAR  APAkT'/2I3) 

C 

C  THIS  ARCA  (OR  LINE)  IS  FINISHED.  WRITE  THE  TRAILER  X/Y  (-1,-1)  TO 
C  TAPE  AND  UPDATE  OUTPUT  TOTALS  FOR  THIS  AREA  OR  LINE 

560  CALL  WRITER  (FILECD, 2/E N DM AkK/EN DM ARK) 

CuNAREA  =  TCONPTS  -  CON  AREA 
TAPECTR  =  TAPECTR  +  CCNAREA 
C 

C  WRITE  OUT  ALL  THE  STATISTICS  FOR  EACH  RECORD. 

C 

IF  (TAPECTR  .GT.  2)  GOTO  590 
WRITE (6,581 )  TAPECTR 

5a1  FORMAT  ('<*><*  XO  ONLY  TWO  INPJT  POINTS  FOR  THIS  AREA') 

CALL  UPDATERKU, UN  ICIUE, NODUMP) 

590  WRITE (6, 391 )XSTK,YSTR, TEMPX, TEMPY 

5  V 1  FORMAT (23X, *S TART  (X,Y)  PT  = ' , 2  I  3 , 1 u X ,  '  EN D  (X,Y)  PT  =',2I3) 

WRITE (6, 5 92) KEADPT, TAPECTR 
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? 9 

07 
08 
t) 9 

1  0 
1 1 
1  2 
1  3 
1  4 
1  5 
1  6 
1  7 
13 
1  9 
20 
21 
22 

23 

24 

25 

26 
27 


20. 7o  9 

592  FORMAT ( 25X ,  '*  OF  PTS  READ  IN  =',I6,10X, 

a.  ' »  OF  IMS  'ta  KITTEN  TO  TAPE  =  '  /  I  .3  ) 

WRITE (6*593)  DUPCTR,CONCTR,CuNAREA 

593  FORMA r ( 25X , 'tt  OF  DUPLICATES  = • / 1 6 , 1 0 X , ' C A L L S  TO  CONNECT  = 
ft.  15/'  WITH  '  / 1 6/ '  POINTS  CONNECTED') 

wRITE(6/594)XMIN,XMAX,YMIN/Y*AX 

594  FORMAT  (  25  X  /  '  MIN  AND  MAX  FOR  X  =' / 2  I  8 / 1  OX / '  FOR  Y  =',2I3) 

C 

C  CALCULATING  Thfc  TOTAL'S  OF  ALL  S T A T  I  C  I  S T  I  C S  . 

C 

PTSOUT  =  PTSOUT  +  TAPECTR 
DUPLPTS  =  DUPLPTS  ♦  DUPCTR 
TCONCTR  =  1C0NCTR  ♦  CONCTR 
PT  S  RE  AD  =  PTSREAD  +  READPT 
IF  (FILECD  .fcU.  PTLINE)  RETURN 
I  F ( XM A  X  .  GT .T XMAX) TXMAX  =  XMAX 
IFCXM1N  .LT.  TXM1N)TXMIN  =  XM  I N 
I  F  (  YM  A  X  .GT.  TYMAX  )  TYMAX  =  Y .«)  A  X 
I  F ( Y  M  I  N  .LT.  TYMIN) TYMIN  =  YMIN 
RETURN 
END 
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C  0  N  N  E  C  T 


1 


C  C  N  C  T  C  0  i  i  N  fc  C  I 

S  U  b  K  0  U  T  I  i  <  E  CONNECT  (  0  >  /  0  Y  ,  *  X  ,  N  Y  /  F  C  ) 

C 

IMPLICIT  INTEGER  (A -L) 

i<EAL  A  /  Y  /  X  L>  IRC  Tn/YD1RCTN/XSCALL  /  Y  S  C  A  L  I 
C 

CO.'lfouN  /CNCTSTAT/  T  C  0  N  C  TK/TCONP  f  S  /  N  A  X  C  ON  C  T  /  C  0  N  P  T  /  C  0  N  C  f  R 
C 

CONPT  =  0 


10 

COfJCT  R=CCNC  TP  +  1 

1 1 

C 

1  2 

AX  =  IABS(OX-nX) 

1  3 

AY  =  1A&S  (  OY-i'l  Y) 

1  4 

I  F  (  A  X  .  Ei>  .  C  .OK.  AY  .  E  0  .  0)  uOTO 

i  no 

1  3 

X  0  f  RC  r  N  =  1  . 

1  o 

IF  COX  .  G  T  .  U X  )  X  0  I  R  C  T  N  =  - 1 . 

1  7 

Y  D I RC  TN  =  1  . 

18 

IF  (OY  .G  T  .  NY)  YL>  1  RC  TN  =  -1  . 

1  9 

C 

20 

C 

SET  "XSCALE"/  "YSCALE”/  "COUNT"  FOR  ThE  UPCONING  LOOP 

31 

C 

22 

IF  CAX-AY)  10/100/20 

21 

1  0 

COU.mT  =  AX 

24 

XSCALE  =  XDIRCTN 

33 

YSCALE  =  YD  I RC  TN  *  FLOAT (AY )  /  FLOAT (AX) 

.3  3 

GuT  0  30 

27 

30 

COUNT  =  AY 

33 

YSCALE  =  YOIRCTN 

2? 

XSCALE  =  XDIRCTN  *  FLOAT(AX)  /  FLOAT (AY) 

50 

c 

31 

c 

LOOP  TO  CONNECT  THE  TWO  POINTS  USING  SUBROUTINE  "PATC 

33 

c 

3  3 

30 

ST  ART  X  =  OX 

34 

STARTY  =  OY 

35 

X  =  FLOAT ( OX) 

36 

Y  =  FLOAT (OY) 

3? 

DO  40  I  =  1/C0UNT-1 

38 

X  =  X  +  XSCALE 

3V 

Y  =  Y  +  Y  SC  A  LE 

40 

IF  (I  .EU.  1  )  GO  TO  31 

41 

CALL  WRITER  (FC/2/STARTX/STARTY) 

42 

CONPT  =  CONPT  *  1 

45 

c 

44 

31 

CALL  PATCH(STARTX/STARTY/IFIX(X)/ 

I  F  IX  (Y  )  /FC  ) 

45 

START  X  =  IFIX(X) 

46 

START  Y  =  IF  I  X( Y) 

4  7 

4  0 

CONTI  NO  E 

43 

C 

49 

I  F  (  S  T  A  R  T  X  .  E  0  .  NX  .AND.  STARTY  .£'0. 

NY ) GO  TO  41 

5  C 

CALL  WAITER  (FC/2/STARTX/STARTY) 

51 

CONPT  =  CONPT  +  1 

52 

41 

CALL  PAKHCSTARTX/STARTY/NX/NY/FC) 

53 

GOTO  200 

134 
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CONNECT 

.  54 

C 

55 

100 

CALL  PATCH(GX,OY,NX,NY,FC) 

56 

c 

57 

200 

TCONPTS  =  TCGNPTS  ♦  CONPT 

5  A 

I F (CONPT  .LT.  MAXCONCT)  RETURN 

59 

WRITE (o, 203 )  OX,  NX,  OY,  NY,  FC,  CONPT 

60 

CALL  UrDATERR  (1,  8NDRY,  NODUMP) 

61 

RETURN 

62 

c 

63 

203 

FORMAT  ('***«*  TOO  MANY  CONNECTS  STARTX  STOPX 

64 

i  *  STOPY  FILECD  C ONN t C T S ' / 24 X , 61  8 / / ) 

65 

END 

STARTY  * 


•0-79  20.770 


b^IP 


DUMP 


SKIP  ANo  DUMP  OUT  CATEGORY  1000 


1 

2 

3 

/ 

* 

5 

6 
7 
6 
9 


C  SK  i  P 
C 


SKIP 
S'UPHOUT  I, ME 


a,  DUMP  SKIP  AND  DUMP  OUT  CATEGORY  1000 
SKlPDUMP(BOUNDRY, INPUT, DUMP, CAT GORY) 


IMPLICIT  INTEGER  (A-Z) 

LOGICAL  DUMP 

COMMON  /JSERVARS/  S  W  I  T  C  H  X  Y  ,  l  S  C  A  Lc 


PRINT  1000,  UOUNDRY,  CATGORY 


10 

IF  (DUMP)  PRINT 

1001 

1  1 

1  0 

CALL  GE  TX  Y  <  X, Y  , 

ZSCALE ,*101 , il 01  ) 

1  2 

IF  (DUMP)  PRINT 

1002,  X,  Y 

.  1  3 

IF  (X  . 

NE  .  -1  ) 

GOTO  10 

1  4 

1  01 

RETURN 

1  5 

C 

‘  16 

10  00 

FORMAT 

(  •  *  *  *  * 

BOUNDARY' ,18,'  WAS 

1  7 

ioni 

FORMAT 

<  5  X  ,  '  T  H  E 

FOLLOWING  PAIRS  0 

1  8 

1002 

FORMAT 

(5X,  18,  ' 

, ', 16) 

19 

END 
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PATCH 


FILL  IN  LAPS  J  E  T  W  t  E  N  2  P  0  1  N  T  b 


CPATCH  P  A  1  L  H  FILL  IN  oAPS  j£T*LEN  2  POINTS 

C 

SUBROUTINE  PATCH  (X2/Y2/X,Y/FILtCD> 

C 

IMPLICIT  1 NTE  GER  (A- Y ) 

COMMON  /  LNCT  S  TA  T/  TCONCTR  /  T  L  ON  P  T  S  /  fi  A  X  C  ON  C  T  /  C  0  M  P  T  /  C  0  N  (  T  R 
C 

C  "CONCTk"  is  a  COUNTER  THAT  COUNTS  THE  NUMBER  of  calls  to  connect. 
C  "CONPT”  IS  A  COUNTER  THAT  COUNTS  THE  HOPPER  OF  POINTS  ‘icNERAT  EO 
C  AND  OUTPUT  bY  EACH  CALL  TO  CONNECT. 

C  "f’AXCONCT"  IS  A  LIMIT  VARIABLE  THAT  CONTROLS  HOw  LARUE  "CONPT" 

C  CAN  GROW  UNTIL  A  WARNING  MESSAGE  IS  OUTPUT. 

C  "TCONPTS"  IS  A  COUNTER  THAT  COUNTS  THE  TOTAL  NjMdER  OF  POINTS 
C  OUTPUT  FROM  Al  CALLS  TO  CONNECT. 

C 

C 

C  COMPUTE  THE  AbSOLUTE  DIFFERENCE  be  TWEEN  THE  TWO  X  AND  Y  VALUES. 

C 

AX-IAdS ( X  2  -  X ) 

A  Y  = I  A  dS  CY2-Y) 

I F ( A  X  . L  T .  2  .AND.  AY  . L  T .  2)  RETURN 
I F ( X  .GT.  X2)XCHANGE=1 
I F (  X  ,LT.  X2) XCHANGE=-1 
I F (  Y  .GT.  Y2)YCHANGE=1 
I F ( Y  .LT.  Y 2) Y CHANGE=-1 
GOTO  1 1 0 
C 

C  CONNECT  WORKS  a Y  MODIFYING  POINT  (X2/Y2).  FIRST  IT  MAKES 
C  AX  =AY  (IE/  IT  MAKES  THE  AdSOLUTEE  DIFFERENCE  BET  w  E  C  N  THE 
C  POINTS  IN  THE  X-  AND  Y-DIRECT ION  THE  SAME)/  AND  ThEN  IT 
C  TRAVERSES  THE  DIAGONAL  (IE /  DECREMENTS  dOTH  *2  AND  Y 2  BY 
C  1  UNTIL  ( X  2/  Y  2  )  =  (X/Y)). 

C 

100  CALL  WRITER  ( F I L E C D / 2 / X 2 / Y 2  ) 

CONPT  =  CONPT  +  1 
C 

C  RECOMPUTE  "AX"  AND  "AY". 

C 

110  AX  =  I  AdS  (  X2-X  ) 

AY  =  I  A  BS  (  Y  2-  Y  ) 

C 

I  F ( A  X . L  E . 1  .AND.  AY.LE.1)G0T0  2  5  0 
C 
C 

IF (AX-AY)lo 0/222/1 50 
C 

C  THE  CHANGE  IN  X  IS  GREATER  TH 
C  So  MODIFY  OnLY  X  POSITION 
C 

150  X  2  -  X  2  +  XCHANGE 

GOTO  IOC 
C 

C  CHANGE  IN  Y  GREATER  THAN  IN  X 
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63 

64 

65 

6  o 

67 

68 
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70 

71 

72 

73 

74 


20.770  HATCH  FILL  IN  GAPS  dETWEEN  2  POINTS 

C  SO  MODIFY  ONLY  Y  POSITION 

c 

1  6  C  Y  2  =  Y  2  +  YCHANGE 

GOTO  100 

C 

C 

C 

C  DIFFERENCE  IS  SAME  IN  X  AND  Y,  CHANGE  UOTH  DIRECTIONS. 

C  I.t.  TRAv/ERSE  THE  DIAGONAL. 

C 

222  X2  =  X2  ♦  X  C  H  AN  Gt 
Y2  -  Y2  +  YCHANGE 
I F ( X  2  .EG.  X ) 6  OT  0  250 
CALL  W  R IT  ER  (F  ILECD*2/X2/  Y2  ) 

CONPT  =  CONPT  +  1 
GO  TO  222 

C 

C  COME  HERE  WHEN  DONE  CONNECTING  TWO  POINTS. 

C 

250  RETURN 
END 
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L 


1  SUB ROUT  II.  t  UPDATERK  (TYPE#  d.NDRY,  DUMP) 

2  IMPLICIT  INTEGER  (A-2) 

3  LOGICAL  DUMP 

4  COMMON  /  E  k  Ru  R  S  /  ERRL1S1  (  4  #  1  V  )  #  E  R  K  C  0  U  N  T 

3  DATA  CNCT#CATS#FTCD#PNTS/  1#2#3#4  / 

d  C 

7  C 

3  C  UPDATE  THE  EkKOR  ARRAY  AND  ITS  POINTER.  IF  THE  ARRAY  IS  FULL  DUMP 

V  C  OUT  TO  FILE  CODE  52 

10  C 

11  C  IF  A  DUMP  IS  ALL  THAT  IS  DESIRED#  SKIP  THIS  SECTION 

1  2  C 

1  3  PTR  -  ERRLI  ST  (  TYPE#1 ) 

14  IF  (  D  U  i-1  P  )  UOTO  200 

15  ERRCOUNT  -  ERRCOUNT  ♦  1 

1  6  C 


17  C  MAKE  SURt  EACH  PROBLEM  ejOUNDkY  IS  S  A  V  E  D  ONLY  ONCE 

1  8  C 

19  IF  (ERRLI S T  (T Y PE #PTR-1  )  . E J  .  BNDRY)  RETURN 

20  ERRLI ST ( TYPE# P TR )  =  3NDRY 

21  ERRLI ST (TYPE# 1  )  =  £ R R L I S T ( T YP E # 1  )  +  1 

22  IF  (PTR  . N  E .  IV)  RETURN 

23  C 

2  4  C  THE  ERROR  ARRAY  IS  FULL#  SO  DUMP  IT  GUT 

25  C 


26 

200 

IF  (PTR  .  EU  .  2) 

RETURN 

2  7 

I  F 

(TYPE  .  E  0  . 

CNCT) 

PRINT 

yOU 

2  3 

I  F 

(TYPE  .EQ. 

CATS) 

PRINT 

901 

29 

IF 

(TYPE  .EO. 

FTCD) 

PRINT 

9  02 

30 

I  F 

(TYPE  .EO. 

PNT  S) 

PRINT 

903 

31 

STOP  =  1 9 

3? 

I  F 

(  D  U'v  P  )  STOP 

=  PTR 

-  1 

33  PRINT  10#  ( E RRLI ST ( T YPE# I ) #  I  =  2#ST0P) 

34  ERRLI ST ( T  YPE  #1 )  =  2 

35  RETURN 


56  C 

3  7  10  FORMAT  (  1  .3  (  1  X#  16  )  ) 

33  900  FORMAT  (lx*******  TOO  MANY  CONNECTS  OCCURRED  IN  THESE  dOUNDRIES1) 

39  901  FORMAT  (1  X#  ******  CATEGORY  ERRORS  OCCURRED  IN  THESE  dOUNDRIES') 

40  90?  FORMAT (1  X#  '  *****  FEATURE  CODE  ERRORS  OCCURRED  IN  THESE  dOUNDRIES') 

41  9Q3  FORMAT ( IX# ' *****  o A D  X#Y  VALUES  «EWE  DETECTED  IN  THESE  sOUNDRIES') 

42  END 
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— - m 


r  cat 


C  u  E  T  CAT 

c 


READ  THE  NEXT  CATEGORY  AND  FEATURE  CODE 
READ  THE  NEXT  CATEGORY  AND  FEATURE  CODE 


C  GETCAT  READS  THE  CATEGORY  "CATGORY"  AND  THE  FEATURE  CODE  "FTCD” 

C  FROM  "INPUT"  FOR  bOUNDARY  NUMdER  "UNIQUE".  UPON  REACHING  END-OF-FILE 
C  ON  "INPUT",  CONTROL  IS  RETURNED  ■/ 1 A  THE  ALTERNATE  RETURN. 

C 

SUBROUTINE  GETCAT  (UN I  QUE  , CATGORY, FTCD,*) 

implic i t  integer  (a-y) 

LOGICAL  DUMP, NODUMP 

COMMON  /  IN  /  INPUT, TOT  INPUT, ENDMAKK 

DATA  UNKNOWN, C  AT  MAX, RE  FPTC  AT  /  9999,  9999,  1000  / 

DATA  DUMP, NODUMP  /  .TRUE.,  .FALSE.  / 

100  CALL  GETXY (CATGORY, FTCD, 1.,ia0Q,A?00) 

IF  (CATGORY  .NE.  REFPTCAT)  GOTO  1 1 C 

CALL  S<IPDUMP( UNIQUE, INPUT, NO DUMP, CAT  GORY) 

UNIQUE  =  UNIuUE  +  1 
GOTO  1 L  0 
110  CONTINUE 
C 

C  THIS  SECTION  IS  FOR  CHANGING  CATEGORIES 


IF  (CATGORY  .E  Q .  9999)  CATGORY  =  12  34 


WRITE  (6,111  )  CAT  GORY, UNIQUE, FTCD 
C 

C  "UNKNOWN"  IS  A  CATCH-AuL  CATEGORY  ASSIGNED  BY  THE  DIGITIZERS  WHEN 
C  A  BOUNDARY  NOT  GIVEN  A  CATEGORY  IS  ENCOUNTERED 
IF (CATGORY  .NE.  UNKNOWN)  GOTO  120 
WRITE(6,112)  CATGORY 
CALL  UPDATERR  (2,  UNIQUE,  NODUMP) 

C 

C  "CATMAX"  IS  THE  MAXIMUM  VALUE  A  CATEGORY  MAY  BE.  ZERO  IS  ASSUMED  T 

C  uE  THE  MINIMUM. 

120  IF  (CATGORY  .LE.  CATMAX.  AND.  CATGORY  . GE .  0)  GOTO  130 
WRITE(6,121)  CATGORY 
CALL  UPDATERR  (2,  UNIQUE,  NODUMP) 


C  THE  FEATURE  CODE  MUST  BE: 

C  1  -  POINT  TARGET 

C  2  -  LINE  TARGET 

C  3  -  CLOSED  bOUNDARY 

130  IF  (FTCD  .Gfc.  1  .AND.  FTCD  .LE.  3)  uOTO  140 
WRITE(6,131 )  F  TCD 

CALL  UPDATERR  (3,  UNIUUE,  NODUMP) 

140  RETURN 
C 

C***  E  0  F  ON  "INPUT" 

200  RETURN  1 

t  , 

C  INPUT  IS  -1,-1  INSTEAD  OF  A  CATEGORY  AND  FC 

C 

3  00  WRITE  (6,301  ) 
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T  C  A  T  READ  THE  NEXT  CATEGORY  AND 

FEATURE 

5A 

601 

FORMAT  (  *<*><*><*>  UNEXPECTED  (-1,-1) 

F  OUN  u *  ) 

5  5 

RETURN  1 

56 

c 

57 

1 1 1 

FORMAT  (  /  *  CATEGORY  s'/Ib/SX/'UNlUUE  = 

1  ,18, 

5iJ 

ti  5X,  'FEATURE  CODE  =*/l5) 

59 

1  1  2 

FORMAT (  '  ***** ‘UNKNOWN  CATEGORY******* 

,  IS) 

60 

1  2  1 

FORMAT ( *  ******* dAD  CATEGORY********** 

• ,  IS) 

6 1 

131 

FORMAT  (  '  ******tJAO  FEATURE  CODE******* 

•  ,ib) 

62 

END 

0  5-31  -  77  **SRAJ** 

SEC)  .32 


LInES/MINUTE  11302 


WO  DIAGNOSTICS  IN  AbOVE  COMPILATION 
nERE  USED  FOR  THIS  COMPILATION 
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zu.  n  i 


1  7 
16 

19 

20 
21 
22 

23 

24 

25 

2  6 

27 

28 

29 

30 

31 


SUbRUUT  R  E  GE  T  X  Y  (X,Y,ZSCALE,*, *) 
IMPLICIT  INTEGER  (A-Y) 

COMMON  /  IN  /  INPUT  ,  TO  T  INPUT#  EN  DM  AR  N 
DIMENSION  I N ( 2  *  1 50 ) 

DA1A  PTK,BUFSIZ/  1,150  / 


6 

DATA 

LASTFC  / 

0 

/ 

.  7 

C 

<j 

IF  < 

LASTFC  . 

EG. 

0)  LASTFC  =  INPUT 

9 

I  F  ( 

LASTFC  . 

Nt  . 

INPUT)  GOTO  800 

'  1 0 

IF  ( 

PTR  . EG. 

1  ) 

R  E  A  D  (  I  N  PU  T  ,E  ND  =  9  OC  ) 

1  1 

X  = 

1 N( 1,PT  R) 

1  2 

Y  = 

I N( 2, PTR) 

1  3 

PTR 

-  PTR  +  1 

1  4 

I  F  ( 

PTR  .GT. 

bUFSIZ)  PTR  =  1 

1  5 

IF  C 

Y  .EQ.  ENDMARO  GOTO  200 

1  6 

C 

IN 


200 


800 

801 


900 


X  =  FLOAT (X)/ZSCALE 
Y  =  F  LG AT  ( Y )/ Z SCALE 
RETURN 

PTR  -  1 
LASTFC  =  0 
RETURN  1 

WRITE <6/801 >  INPUT, LASTFC 

FORMAT  (’<*  X*  >  <*>  ATTEMPTED  TO  READ  FROM  FC' 
i  •  ot FORE  BUFFER  FROM  FC’,I3,'  WAS  EMPTY') 
S  TOP 

RETURN  2 
END 
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SEC) 


23 


LlNES/MNuTE  7769 


NO  DIAGNOSTICS  IN  ABOVE  COMPILATION 
WERE  USED  FOR  THIS  COMPILATION 
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,13, 


0-7  9 


20. 772 


1  SU6R0U  T  I  JE  WRITER  (  F  l  LE C 0 / C N T / X 1  /  X 2 , X 3  /  X 4  /  XS ) 

2  IviplICI  T  INTEGER  (A-2) 

3  COMMON  /IN  /  INPUT  /TOT INPUT /END  MARX. 

4  DIMENSION  X(5)/  OUTBUFF (310) 

5  DATA  PT  R/BU  FS I Z  /  1/310  / 

6  DATA  LASTFC  /O/ 

7  C 

3  X ( 1  )  =  XI 


9 

IF  (  CNT  .GE.  2)  X ( 2 )  =  X2 

1  0 

IF  (  CNT  .GE.  3)  X (3)  =  X  3 

1 1 

IF  (  CNT  .GE.  <*)  X(0  =  X4 

1  2 

IF  (  CNT  .GE.  S)  X ( 5 )  =  X5 

1  3 

IF  (  LASTFC  .ED.  0)  LASTFC  =  FILECC 

1  4 

IF  (  LASTFC  .NE.  FILECD)  GOTO  800 

1  5 

IF  (  PTR+CNT  .LE.  dUFSIZ)  GuTO  100 

16 

WR ITE  (F  ILE  CD)  OUTBUF  F 

1  7 

PTK  =  1 

1  8 

1  GO 

DO  200  1=1  /  CNT 

1  V 

OUTdUF  F  (PT  R  )  =  X  (I  ) 

20 

200 

PT  R  =  PTR  +  1 

21 

C 

22 

IF  (  X(CTT)  .NE.  ENdMARO  RETURN 

23 

WRITE  (F  ILECD)  OUTbUFF 

24 

PTR  =  1 

25 

LASTFC  =0 

26 

RETURN 

2  7 

c 

2  3 

800 

WRITE (6/801 )  F1LECD/LASTFC 

29 

801 

FORMAT (*  <*><*><*>  ATTEMPTED  TO  WRITE 

30 

<4  '  BEFORE  DUMPING  dUFFER  FOR  FC  */l3) 

31 

STOP 

32 

END 

03— 31  —  77  **SR4J** 

SEC)  .24  LINES/MINUTE  7887 

NO  DIAGNOSTICS  IN  ABOVE  COMPILATION 
WERE  JSEO  FOR  THIS  COMPILATION 
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79  15.635  AREA  FIX  FIX  UP  AREAS  L 

1  CAREA  AREA  FIX  FIX  UP  AREAS 

2  C 

3  C 

4  C  THIS  PROGRAM  IS  THE  THIRO  IN  THE  SERIES  USED  TO  CREATE  DATA  BASES. 

5  C  ITS  PURPOSE  IS  TO  ELIMINATE  TANGENTS*  ELIMINATE  VERTICAL  SEGMENTS* 

6  C  ASSIGN  A  CLASSIFICATION  OF  "TOP"  OR  "BOTTOM”  TO  EACH  POINT. 

7  C  EACH  OF  THESE  TASKS  IS  ACCOMPLISHED  BY  USING  1  OF  4  DECISION 

8  C  MATRICES.  IN  ORDER  TO  CLASSIFY  A  POINT*  (I.E.  "TOP"*  "BOTTOM"*  OR 

9  C  "TOSS")  IT  IS  NECESSARY  TO  KNOW  THE  POINT  IMMEDIATELY  PRECEDING  IT 

10  C  AND  THE  POINT  IMMEDIATELY  FOLLOWING  IT.  FOR  THIS  REASON*  THE  FIRST 

11  C  POINT  MUST  3  E  SAVED  ALONG  WITH  THE  POSITIONAL  DIFFERENCE  BETWEEN 

12  C  IT  AND  THE  SECOND  POINT.  IN  THIS  MANNER*  THE  FIRST  POINT  CAN  THEN 

13  C  BE  PROPERLY  PROCESSED  AS  THE  VERY  LAST  POINT. 

14  C  THERE  ARE  FOUR  DECISION  MATRICES)  "ASSGN1 "*.. . *"ASSGN4".  THE  MATRI 

15  C  THAT  IS  USED  IS  DEPENDENT  UPON  POSITIONAL  DIFFERENCES  WITH  RESPECT  TO 

16  C  THE  Y—DI RE  CTI  ON  OF  THE  THREE  POINTS.  ONCE  THE  CORRECT  MATRIX  HAS  BEEN 

17  C  CHOSEN*  THE  CLASSIFICATION  CAN  BE  EXTRACTED.  THIS  IS  DEPENDENT  UPON 

18  C  THE  POSITIONAL  DIFFERENCES  WITH  RESPECT  TO  THE  X-DIRECTION  OF  THE 

19  C  THREE  POINTS.  THE  DECISION  MATRICES  ARE  DESIGNED  SUCH  THAT  POINTS 

20  C  CREATING  TANGENTS  AND  POINTS  THAT  FALL  IN  THE  MIDDLE  OF  A  VERTICAL 

21  C  SEGMENT  ARE  ASSIGNED  THE  CLASSIFICATION  "TOSS”.  IF  A  POINT  IS 

22  C  ASSIGNED  AS  "TOSS"*  IT  SIMPLY  IS  NOT  OUTPUT.  POINTS  ASSIGNED  AS 

23  C  "TOP"  OR  "BOTTOM"  ARE  OUTPUT  IN  THE  FORMAT  SPECIFIED  BELOW. 

24  C  ALL  OF  THESE  TASKS  ARE  EXPLICITLY  PERFORMED  WITHIN  THE  SUBROUTINE 

25  C  "ASSIGN".  THE  PARAMATERS  TO  "ASSIGN"  AREj  THE  COORDINATES  OF  THE 

26  C  POINT  TO  BE  PROCESSED)  THE  POSITIONAL  DIFFERENCES  BETWEEN  THAT 

27  C  POINT  AND  THE  LAST  POINT  PROCESSED)  AND  THE  POSITIONAL  DIFFERENCE 

28  C  BETWEEN  THAT  POINT  AND  THE  NEXT  POINT  TO  BE  PROCESSED.  PRIOR  TO 

29  C  RETURN*  THE  POINT  JUST  PROCESSED  IS  UPDATED  TO  THE  NEXT  POINT  TO  BE 

30  C  PROCESSED  AND  THE  POSITIONAL  DIFFERENECES  BETWEEN  THE  POINT  JUST 

31  C  PROCESSED  AND  THE  POINT  PROCESSED  BEFORE  IT  ARE  UPDATED  TO  THE 

32  C  POSITIONAL  DIFFERENCES  BETWEEN  THE  NEXT  POINT  TO  BE  PROCESSED  AND 

33  C  THE  POINT  JUST  PROCESSED. 

34  C 

35  C 

36  C 

37  C  INPUT 

38  C  THERE  IS  ONE  INPUT  TAPE  TO  THIS  PROGRAM  (REFERENCED  BY  "TAPEIN") 

39  C  THIS  TAPE  IS  THE  OUTPUT  TAPE  FROM  THE  SECOND  PROGRAM  AND  CONTAINS 

40  C  THE  C  AT  EG) R  Y  AND  BOUNDRIES  FOR  EACH  "AREA"  IN  THE  DATA  BASE. 

41  C 

42  C  THE  TAPE  IS  ARRANGED  IN  THIS  FORMAT 

43  C 

44  C  ****************** 

45  C  CATEOGRY  1 *F  C*BOUNDR  Y  U 

46  C  ( X  *  V )  PAIR 

47  C  ( X  *  Y )  PAIR 

48  C 

49  C 

50  C 

51  C  ( X  * Y )  PAIR 

52  C  (-1*  -1) 

53  C  CATEGORY  2 
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54 

C 

55 

C 

56 

C 

57 

C 

58 

C 

59 

C 

60 

C 

61 

C 

62 

C 

63 

C 

64 

C 

65 

C 

66 

c 

67 

c 

68 

c 

69 

c 

70 

c 

71 

c 

72 

c 

73 

c 

74 

c 

75 

c 

76 

c 

77 

c 

78 

CO* 

79 

c* 

80 

c* 

81 

c* 

82 

c 

83 

c 

84 

c 

85 

c 

86 

c 

87 

CO* 

88 

CO* 

89 

CT* 

90 

CB* 

91 

c 

92 

c 

93 

c 

94 

c 

95 

c 

96 

c 

97 

c 

98 

c 

99 

c 

1  00 

c 

101 

c*  * 

102 

c 

103 

c** 

1  04 

c 

105 

c 

106 

c 

AREA 


FIX  UP  AREAS 


F  I  X 


'EOF*  MARKER 


C  OUTPUT 

C  THERE  IS  ONE  OUTPUT  TAPE  (REFERENCED  AS  "T  APEOUT") ,  AND  SOME 

C  OUPUT  TO  THE  LINE  PRINTER  (REFERENCED  AS  "PAPER"). 

C 

C  OUTPUT  TAPE  : 

C  FOR  EAEH  POINT  WHICH  IS  TO  BE  KEPT  (ASSIGNED  AS  "TOP"  OR 

C  "BOTTOM")  THERE  ARE  TWO  WORDS  OF  OUTPUT.  THE  FIRST  WORD  CONTAINS 

C  THE  BOUNDARY  NUMBER  IN  THE  UPPER  HALF  OF  THE  WORD  (BITS  3  -  17) 

C  ANO  THE  X-COORDINATE  IN  THE  LOWER  HALF  OF  THE  WORD  (BITS  18  -  35) 

C  THE  SECOND  WORD  CONTAINS  FOUR  PIECES  OF  INFORMATION:  1)  ONE  BIT 

C  FOR  "TOP"  (=1)  OR  "BOTTOM"  (»0)  BIT  ZERO,  THE  LEFTMOST  BIT  IS  USED 

C  2 )  17  BITS  (1  -  17)  FOR  THE  Y-C OOR D I N AT E.  3) T  H  E  CATEGORY  IN  BITS 

C  18-36 

C 

C  WORD  1 

C 

C  11111111112222222222333333 

C0*1*2*3*4*5*6*7*8*9*0*1*2*3*4*5*6*7*8*9*0*1*2*3*4*5*6*7*8*9*0*1*2*3*4*5 
C*  0-17  *  18-35 

C*  BOUNDARY  NUMBER  *  X  -  COORDINATE 

C*  * 


C  WORD  2 

C 

C  11111111112222222222333333 

C0*1*2*3*4*5*6*7*8*9*0*1*2*3*4*5*6*7*8*9*0*1*2*3*4*5*6*7*8*9*0*1*2*3*4*S 
CO*  1-17  *  18-35 

CT*  Y  -  COORDINATE  *  CATEGORY  NUMBER 


OUTPUT  TO  LINE  PRINTER: 

UPON  SUCCESFUL  PROCESSING  OF  EACH  AREA,  THERE  IS  SOME  OUPUT 
TO  PAPER.  TE  INFORMATION  PRINTED  IS:  THE  AREA  COUNT,  THE 
CATEGORY,  NUMBER  OF  POINTS  DISCARDED,  NUMBER  OF  POINTS  CALLED 
"TOP",  AND  THE  NUMBER  OF  POINTS  CALLED  "BOTTOM". 

UPON  SUCCESFUL  COMPLETION  OF  ALL  AREAS,  AN  APPROPRIATE 
MESSAGE  IS  PRINTED.  IF  AN  ERROR  OCCURS,  A  DESCRIPTIVE  MESSAGE 
IS  PRINTED  AND  PROGRAM  EXECUTION  IS  HALTED. 


VARIABLE  DESCRIPTIONS: 


’TYPECNT"  IS  AN  ARRAY  USED  TO  COUNT  THE  NUMBER  POINTS  DISCARDED,  THE 
NUMBER  OF  POINTS  CALLED  "TOP",  AND  THE  NUMBER  OF  POINTS 
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AREA 
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.-79 

107 

108 

109 

110 
111 
112 
.113 

114 

115 
'116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 
'135 

136 

•137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 
'153 

154 
•  155 
1  56 

157 

158 
1  59 


15.635 

C  CALLED  "BOTTOM". 

C 

C  "F IRS  T  X"  IS  THE  X-C00RDINATE  OF  FIRST  POINT  IN  THIS  AREA 
C 

C  "FIRSTY"  IS  THE  Y-COORDINATE  OF  FIRST  POINT  IN  THIS  AREA 
C 

C  "X"  IS  THE  X -COORDINATE  OF  THE  CURRENT  POINT  TO  BE  PROCESSED 
C 

C  "Y"  IS  THE  i -COORD INATE  OF  THE  CURRENT  POINT  TO  BE  PROCESSED 
C 

C  "NEXTX"  IS  THE  X-COORDINATE  OF  THE  NEXT  POINT  TO  BE  PROCESSED 
C 

C  "NEXTY"  IS  THE  Y-COORDINATE  OF  THE  NEXT  POINT  TO  BE  PROCESSED 
C 

C  "FRSTXDIF"  IS  THE  DIFFERENCE  BETWEEN  X- COOR D I NA TE S  OF  1ST  2  POINTS 
C 

C  "FRSTVDIF"  IS  THE  DIFFERENCE  BETWEEN  Y- C 0 ORD I N A T E S  OF  1ST  2  POINTS 
C 

C  " C A T G R Y ”  IS  THE  THE  CATEGORY  NUMBER  FOR  THE  CURRENT  AREA 
C 

C  "AREAS”  IS  THE  COUNT  OF  THE  NUMBER  OF  AREAS  PROCESSED 
C 

C  **  CONSTANTS  ** 

C 

C 

C  "END"  a  -1  USED  TO  CHECK  FOR  END-OF-AREA  MARKER  (-1,-1) 

C 

C  "TAPEIN"  *  1  IS  THE  DEVICE  NUMBER  FOR  THE  INPUT  TAPE 
C  "TAPEOUT"  «  ?  IS  THE  DEVICE  NUMBER  FOR  THE  OUTPUT  TAPE 
C 

C  "PAPER"  =6  IS  THE  DEVICE  NUMBER  FOR  THE  LINE  PRINTER 
C 

C ***************************************************************  ******* 

c 

IMPLICIT  INTEGER  <A-Z> 

LOGICAL  DUMP*  NODUMP*  SWITCHXY 
C 

DIMENSION  TYPECNT (3)*  GAPERRS(20>*  BTERRSC23)*  RNGERRSC20) 
DIMENSION  PNTERRSC20) 

C 

COMMON  /INPARAM/  TAPEIN*  ENDMARK 
COMMON  ’.STATS/  CATGRY*  TYPECNT*  SWITCHXY 

COMMON  /GAPS/  GAPERRS*  ERGAPNTR*  RNGERRS*  ERRNGPTR 

COMMON  / DC  I DE /  ASS6N1<3*3>*  A$SGN2(3*3>*  ASSGN3<3*3>*  ASSGN4<3*3) 
COMMON  /ERRORS/  ERRCOUNT 
C 

DATA  DUMP*  NODUMP  /.TRUE.*  .FALSE.  / 

DATA  TAPEIN*  TAPEOUT*  PAPER  /  1*  2*  6  / 

DATA  ENDMARK  /  -1/ 

C 

C 

C  THESE  DATA  STATEMENTS  FILL  UP  THE  DECISION  MATRICES 
C 
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160 
1  o  1 
16? 

163 

164 
1  65 
1  66 
167 
1  68 
169 
1  70 
1  71 
1  72 
1  73 
1  74 
1  75 
1  76 
177 
1  78 
1  79 
180 
1  81 
182 

183 

184 

185 
1  86 

187 

188 
1  89 
190 
1  91 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 


C 

C 

C 

C 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


DATA 

DATA 

DATA 

DATA 


((ASSGNl(I,J),I«1,3),J*1,3) 
( (ASSGN2(l,J),I«1,3),J«1,3> 
( (AS$GN3(I,J),I«1,3),J*1,3) 
((ASSGN4(I,J),I»1,3),J«1,3) 


/0, -1,-1, 0,-1, -1,-1, 1,1/ 
/0, 0,-1, -1,-1, 1,-1, -1,1/ 
/  0,  — 1,-1,— 1,1,1,— 1,1,1/ 
/0,0, -1,0,3, -1,-1, -1,1/ 


DATA  ERRCOUNT  /  0  ✓ 

DATA  PNT  ERRS ( IT ,RNGERRS (1 ) ,GAPERRS(1 ) , BT  ER  RS (1 )  /4*3/ 

DATA  PNTERRS ( 2 ) ,RNGERR S (2 ) , G AP ER R S ( 2 ) , BT E R RS ( 2 )  /-3,-2,-1,0/ 


***  EXECUTION  STARTS  HERE  *** 


WRITE  (PAPER, 1000) 
PRINT  1000 
OUTCNT  =  0 
MINX  *  1 0D  000 
MAXX  *  0 


READ  THE  VARIABLE  "SWITCHXY"  (LOGICAL)  FOR  TOPS  &  BOTTOMS 


CALL  GETXY  (  SWITCHXY,  DUM,  $91,  $420  > 

91  CONTINUE 

IF  (SWITCHXY)  WRITE (PAPER, 3) 

IF  (SWITCHXY)  PRINT  3 
C 
C 

C  READ  THE  CATEGORY  FOR  THIS  AREA.  IF  THE  'EOF*  MARKER  IS  ENCOUNTERED, 
C  THEN  ALL  A3  E AS  HAVE  BEEN  PROCESSED.  EXECUTION  CONTINUES  AT  THE 

C  STATEMENT  .ABELLED  '300'  TO  DO  SOME  OUTPUT  BEFORE  STOPPING. 

C 

100  CONTINUE 

CALL  GETCAT  (  AREAS,  CATGRY,  FC,  $400,  $300  ) 

C 

WRITE  (PAPER, 910)  AREAS,  CATGRY 
C 
C 
C 

C  READ  THE  FIRST  TWO  POINTS  FOR  THIS  AREA,  CHECKING  FOR  'EOF*  MARKER 
C  AND  READ  ERRORS. 

C 

CALL  GETXV  (  FIRSTX,  FIRSTY,  $112,  $420  ) 

IF  (FIRSTX  .GT.  MAXX)  MAXX  *  FIRSTX 
IF  (FIRSTX  .LT.  MINX)  MINX  *  FIRSTX 
C 

CALL  GETXY  (  X,  Y,  $112,  $420) 

IF  (X  .GT.  MAXX)  MAXX  >  X 
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213  IF  (X  .LT.  MINX)  MINX  s  X 

214  CALL  WRITER  ( T  APEOUT /  2/  AREAS/  AREAS) 

215  C 

216  OUPCNTR  =  0 

217  C 

218  C  SAVE  THE  POSITIONAL  OIF FERNECES  BETWEEN  THESE  TWO  POINTS 

219  C 

220  FRSTXOIF  =  X  -  FIRSTX 

221  FRSTYDIF  =  Y  -  FIRSTY 

'222  XDIFF  ■  FRSTXOIF 

223  YOIFF  *  FRSTYDIF 

224  C 

225  C  LOOP  TO  HANDLE  ALL  POINTS/  BUT  THE  FIRST  &  LAST/  IN  THIS  AREA 

22 6  C  FIRST/  CHECK  AND  I6N0RE  DUPLICATE  POINTS 

227  C  NEXT/  CHECK  FOR  END  POINT  (-1/-1)/  IF  FOUND  GOTO  LABEL  200 

228  C  FINALLY/  CALL  SUBROUTINE  "ASSIGN”  TO  DEAL  WITH  THE  POINT 

229  C 

230  110  CONTINUE 

231  CALL  GETXY  (  NEXTX/  NEXTY/  $200/  $420  ) 

232  C 

233  IFCNEXTX  .NE.  X  .OR.  NEXTY  .NE.  Y)  GOTO  111 

234  DUPCNTR  «  OUPCNTR  ♦  1 

235  GOTO  1 1 0 

236  C 

237  C 

238  111  IF  (NEXTX  .GT.  MAXX)  MAXX  *  NEXTX 

239  IF  (NEXTX  .LT.  MINX)  MINX  *  NEXTX 

240  CALL  ASSIGN  (X/  Y /  XDIFF/  YD  IFF/  NEXTX-X/  NEXTY-Y) 

?41  C 

242  GOTO  110 

*24  3  C 

244  112  WRITE  (PAPER/916) 

245  CALL  UPDATERR (PNTERRS/  AREAS/NODUMP) 

246  GOTO  100 

247  C 

248  C ************************************************************  ****** 

249  C 

250  C 

251  C  ONCE  THE  END-OF-AREA  MARKER  HAS  BEEN  READ  (-1/-1)/  THE  VERY  LAST 

252  C  POINT  IS  NOW  ("X"/"Y").  THIS  POINT  MUST  BE  PROCESSED  FIRST  AND 

253  C  THEN  THE  VERY  FIRST  POINT  CAN  BE  PROCESSED. 

254  C 

255  200  CALL  ASSIGN  (X/  Y/  XDIFF/  YD  IF  F/  FIRSTX-X/  FIRSTY-V) 

256  C 

257  C  NOW  THE  FIRST  POINT  CAN  FINALLY  BE  PROCESSED.  IT  IS  HERE  THAT 

258  C  THE  POSITIONAL  DIFIERENCES  BETWEEN  IT  AND  THE  SECOND  POINT  ARE 

’259  C  NEEDED. 

260  C 

'261  CALL  ASSIGN  (X/  Y/  XDIFF/  YD  IFF/  FRSTXDIF/  FRSTYDIF) 

262  CALL  WRITER  (  TAPEOUT/  2/  ENDMARK/  ENDMARK  ) 

263  C 

264  C 

265  C  THIS  AREA  HAS  NOW  BEEN  COMPLETELY  PROCESSED/  OUTPUT  (TO  PAPER) 
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J 

266 

C 

THE  NUMBER  OF  POINTS  DISCARDED/  THE  NUMBER  OF  POINTS  CALLED  "TOP"/ 

267 

C 

&  THE  NUMBER  OF  POINTS  CALLED  HBOTTOMN.  LOOP  BACK  FOR  THE  NEXT  AREA 

268 

C 

269 

IF  (TYPECNT(2)  .EQ.  TYPECNT(S))  GOTO  202 

270 

WRITE  (PAPER/91 1)  I ABS  (  TYPECNH2)  -  TVPECNT(3>  ) 

271 

CALL  UPDATERR  (  BTERRS /  AREAS/  NODUMP  ) 

272 

202 

IF  (TYPECNT (2)  .GT.  3  .AND.  TYPECNT(3)  .GT.  3)  GOTO  203 

41’ 

2  73 

WRITE  (PAPER/917) 

2  74 

CALL  UPDATERR(BTERRS/  AR E AS /N OD UMP ) 

2  75 

203 

WRITE  (PAPER/912)  < TYPECNT < I > / I *1 / 3) 

0 

2  76 

IF  (DUPCNTR  .GT.  0)  WRITE  (PAPER/913)  DUPCNTR 

277 

OUT CN T  *  OUTCNT  ♦  TYPECNT(2)  ♦  TYPECNT(3) 

278 

DO  204  1  =  1/3 

279 

TYPECNT( I )  =  0 

280 

204 

CONTINUE 

281 

GOTO  100 

j 

282 

C 

283 

c*  *** 

284 

c 

285 

c 

2  86 

C  IF 

THE  'EOF*  MARKER  WAS  ENCOUNTERED  WHEN  ATTEMPTING  TO  READ  A  NEW 

287 

C 

CATEGORY/  THEN  ALL  AREAS  HAV€  BEEN  SUCCESSFULLY  PROCESSED 

2  88 

C 

289 

300 

WRITE  (PA’ER/915) 

290 

301 

WRITE  (  PAPER/320) 

291 

320 

FORMAT! Z//20X/ •><  ><  ><  ><  ><  ><  ><  ><  ><  ><  ><  ><  ><  ><  ><•) 

292 

WRITE  (PAPER/321)  MINX/  MAXX/  OUTCNT/  SWITCHXY 

293 

321 

FORMAT!/// 20X/ 'THESE  VALUES  ARE  NEEDED  AS  INPUT  FOR  COUNT* 

294 

&  /7//20X/ 'MINX  MAXX  OUTCNT  SWITCHXY  *  ' / 2 1 8/ 1 1 0/ 1 3) 

• 

295 

WR I TE (6/32  0 ) 

296 

C 

# 

297 

CALL  UPDAT ERR (BTERRS/  0/  DUMP) 

298 

CALL  UPDATERR  (GAPERRS/  0/  DUMP) 

299 

CALL  UPDATERR  (RNGERRS/  0/  DUMP) 

300 

CALL  UPDATERR  (PNTERRS/  0/  DUMP) 

301 

WRITE  (PA3  ER/914)  ERRCOUNT 

302 

IF  (SWITCHXY)  WRITE (6/3 ) 

303 

IF  (SWITCHXY)  PRINT  3 

304 

WRITE  (PA3  ER/919)  MAXX-M  IN X+2 1 

305 

PRINT  919/  MAX  X— MI NX *2 1 

I  , 

306 

STOP 

307 

C 

| 

508 

c  *  *** 

309 

c 

310 

c 

311 

C  WHEN  A  READ  ERROR  OCCURS  (OTHER  THAN  'EOF')  WHILE  READING  A  CATEGORY/ 

312 

C 

EXECUTION  CONTINUES  HERE  TO  OUTPUT  A  MESSAGE  AND  THEN  STOP. 

313 

C 

314 

400 

WRITE  ( PA3  E  R/ 920  )  AREAS 

315 

GOTO  301 

316 

C 

31  7 

c  *  *** 

318 

c 

. 

US 

JW-1  wr»  ■  1  ' 

j 

L  __ 

♦ 

k 
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319  C 

320  C  WHEN  A  READ  rRROR  OCCURS  (OTHER  THAN  'EOF')  WHILE  READING  AN  <X#Y) 

321  C  PAIR*  EX  EC  J  T ION  CONTINUES  HERE  TO  PRINT  A  MESSAGE  AND  STOP. 

322  C 

323  410  WRITE  <P43ER#921)  AREAS 

TATEMENT  IS  NEVER  REFERENCED 

324  GOTO  301 

325  C 

326  c*************** ******************************************************* 

527  C 

328  C 

329  C  WHEN  THE  'EOF*  MARKER  IS  READ  WHILE  ATTEMPTING  TO  READ  AN  <X#Y)  PAIR* 

330  C  EXECUTION  CONTINUES  HERE  TO  OUTPUT  A  MESSAGE  AND  STOP. 

331  C 

332  420  WRITE  <PAPER#930)  AREAS 

333  GOTO  301 

334  C 

335  C ********************************************************  ************** 

336  C 

337  C  FORMATS 

338  C 

339  3  FORMAT  < 1 X # 25 < '  *  * ) # *  TOPS  AND  BOTTOMS  WILL  BE  SWITCHED'#25('**)) 

340  910  FORMAT  < /3  X#' AREA  '#15#'#  CATEGORY  IS  *#I5) 

341  911  FORMAT  </lx#'******  BOTTOMS  AND  TOPS  ARE  NOT  EQUAL.  DIFFERENCE'# 

342  &  '  I  S' # 15#'  ******•/#'  «)_ 

343  912  FORMAT  <3X#I7#'  POINTS  D ISC AR DE D# • #  1 7# •  BOTTOMS # • # 1 7# •  TOPS.') 

344  913  FORMAT  <8X#I7#'  DUPLICATE  POINTS') 

345  914  FORMAT  <///5X#I10#'  ERRORS  WERE  DETECTED  IN  THIS  RUN') 

546  915  FORMAT  (///lx********  NORMAL  TERMINATION  *******) 

347  916  FORMAT  <lx#'*****  <-1#-1)  WAS  READ  AS  FIRST  OR  SECOND  POINT.'# 

S48  &  '  THE  AREA  WAS  IGNORED') 

349  917  FORMAT  (lx, ******  FEWER  THAN  4  BOTTOMS  OR  FEWER  THAN  4  TOPS') 

350  919  FORMAT  (2 < 1 X# 1 20 ('*')/)✓  •  *****  MAKE  SURE  THE  ARRAY  "XBINS"  IN'# 

351  &  '  THE  NEXT  PROGRAM  "XCOUNT"  IS  DIMENSIONED  TO  AT  LEAST'# 

352  &  110#'  *****'//2(lX#120('*')/)) 

353  1000  FORMAT  Cl') 

354  C 

355  920  FORMAT  <3(  1 X# 1 00 ('*')/)/ 5X #* R EAD  ERROR  WHILE  READING  CATEGORY  '# 

356  &  'FOR  AREA  '#16) 

357  C 

358  921  FORMAT  <3 ( 1 X# 1 00 ('*')/)/ 5X #' R EA D  ERROR  WHILE  READING  X#Y  IN  '# 

359  &  'AREA  *#I6) 

360  C 

361  930  FORMAT  <3( 1 X# 1 00 ('*')/)/ 5X #' E ND  OF  INPUT  TAPE  WHILE  READING  X#Y  •# 

362  &  'IN  AREA  '#16) 

363  C 

364  END 


EMORY  EXPANDED.  USE  SLIMITS  OR  CORE*  OPTION  FOR  NEXT  RUN 


03-31-77  *  *SR4J** 
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A  S  S  I  6  N 


SUB.  FOR  CLASIF  ICATION  &  OUTPUT 


C ASSIGN 
C 


ASSIGN 


SUBROUTINE 


SUB.  FOR  CLASI FICATIOM  &  OUTPUT 


ASSIGN 


THIS  SUBROUTINE  DECIDES  WHAT  TO  00  WITH  A  POINT.  IT  ASSIGNS  A 
CLASSIFICATION  OF  "TOSS'*#  "TOP"#  OR  "BOTTOM"  TO  THE  POINT  US  I NG 
ONE  Of  THE  TWO  DECISION  MATRICES  ("ASSGN1"  OR  "ASSGN2").  POINTS 
ASSIGNED  "TOP"  OR  "BOTTOM"  ARE  OUTPUT  IN  THE  TWO  WORD  FORMAT  WHILE 
POINTS  ASSIGNED  "TOSS"  ARE  NOT  OUPUT. 

THIS  SUBROUTINE  ALSO  COUNTS  THE  NUMBER  OF  POINTS  IN  EACH  X-BIN 
AND  COUNTS  THE  NUMBER  OF  POINTS  WITH  EACH  CLASSIFICATION. 

FINALLY#  BEFORE  RETURNING#  THIS  SUBROUTINE  SWAPS  THE  ARGUMENTS 
AROUNO  IN  PREPARATION  FOR  THE  PROCESSING  OF  THE  NEXT  POINT. 


VARIABLE  DESCRIPTIONS 


’TYPECNT"  IS  THE  ARRAY  FOR  THE  U  OF  POINTS  WITH  EACH  DIFFERENT 
TYPE  ("TOSS"#  "BOTTOM"#  OR  "TOP") 


"PNTYPE" 


"PACKED" 


CLASSIFICATION  OF  <"X"#"Y") 

-1  =  "TOSS" 

0  =  "BOTTOM" 

1  *  "TOP" 

IS  THE  SECOND  WORD  OF  OUTPUT.  IT  IS  PACKED  TO  HOLD: 
" TOP "/"BOTTOM"#Y— COORDINATE#  CATEGORY#  AND  FEATURE 
TYPE  <*  "AREA"). 


***  PARAMATERS  *** 

"X"  IS  THE  X-COORDINATE  OF  THE  POINT  TO  BE  PROCESSED 


*Y"  IS  THE  Y-COORDINATE  OF  THE  POINT  TO  BE  PROCESSED 

'OLDXDIF  F”  IS  THE  DIFFERENCE  IN  X-COORDINATES  BETWEEN  THE 

POINT  TO  BE  PROCESSED  AND  THE  LAST  POINT  PROCESSED 


"OLDYDIFF"  IS  THE  DIFFERENCE  IN  Y-COORD INATES  BETWEEN  THE 

POINT  TO  BE  PROCESSED  AND  THE  LAST  POINT  PROCESSED 

"XDIFf"  IS  THE  DIFFERENCE  IN  X-COORDINATES  BETWEEN  THE  NEXT 
POINT  TO  BE  PROCESSED  AND  THE  CURRENT  POINT  TO  BE 
PROCESSED 

"YDIFF"  IS  THE  DIFFERENCE  IN  Y- COOR D IN A T E S  BETWEEN  THE  NEXT 
POINT  TO  BE  PROCESSED  AND  THE  CURRENT  POINT  TO  BE 
PROCESSED 

***  CONSTANTS  *** 
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LAB 


5  A 

55 

56 

57 

58 

59 

60 
61 
62 
63 
6A 

65 

66 
67 
66 

69 

70 

71 

72 

73 
7  A 

75 

76 

77 

78 

79 


C 

C  "AREA"  =2  IS  THE  FEATURE  TYPE  FOR  AREAS 
C 

C  "TAPEOUT"  =2  IS  THE  DEVICE  NUMBER  FOR  THE  TAPE  DRIVE  WITH  THE 
C  OUTPUT  TAPE  MOUNTED 

C 

C  "TOSS"  =  -1  IS  THE  INTEGER  ASSOCIATED  WITH  "TOSS" 

C 

C 

C  "ASSGN1"  AND  "ASSGN2"  ARE  THE  DECISION  MATRICES 

C  THESE  MATRICES  ARE  USED  TO  ASSIGN  "TOP"/  "BOTTOM"/  OR  "TOSS"  TO 
C  THE  POINT  " X "z " Y"  . 

C 


c******* 


r  ******  * 


c 

c 


c 

c 


c 

c 

c 


c 

c 

c 

c 


SUBROUTINE  ASSIGN  (X/  Y/  OLDXDIFF/  OLDYDIFF/  XDIFF/  YDIFF) 

IMPLICIT  INTEGER  (A-Z) 

LOGICAL  DUMP/  NODUMP/  SWITCHXY 

DIMENSION  TYPECNTC3)/  ERRLIST (19)/  RN  GE  RR  S ( 1 9 ) 

COMMON  /STATS/  CATGRY/  TYPECNT/  SWITCHXY 

COMMON  /GAPS/  ERRLIST/  ERRPNTR/  RNGERRS/  ERRNGPTR 

COMMON  /DC  IDE/  ASSGN1 ( 3/3) /  ASSGN2C3/3)/  ASSGN3 (3/3) /  ASS3NA(3/3) 


DATA  DUMP/  NODUMP  /.TRUE./  .FALSE./ 

DATA  TOSS/  AREA/  TAPEOUT/  PAPER  /  -1/  2/  2 /  6  / 


*****  EXECUTION  STARTS  HERE  ***** 


C*«*****i 


C 


c 

C  DECIDE  WHICH  MATRIX  TO  USE  BY  THE  DIFFERENCES  IN  Y -C OORD I NA T E S 
C  AND  EXTRACT  THE  CLASSIFICATION  FROM  THE  MATRIX  BY  THE  DIFFERENCES 
C  IN  X-COORDI NATES 
C 


C 


C  FIRST  MAKE  SURE  THERE  IS  NOT  A  GAP  BETWEEN  THE  THREE  POINTS 
C 


IF  (IABSCOLDXD IFF)  .GT.  1  .OR.  IABS(XDIFF)  .GT.  1  .OR. 

&  IABS(OLDYOIFF)  .GT.  1  .OR.  IABS(YDIFF)  .GT.  1)  GOTO  203 


IF  (YDIFF  ♦  OLDYDIFF)  120/  100/  110 

C 

100  IF  (YDIFF)  103/  110/  104 

103  PNTYPt  =  ASSGN3(0LDXDIFF+2/  XDIFF+2) 

GOTO  130 
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107 

104 

PNT  YPE 

=  ASSGN4(0LDXDIFF+2,  XDIFF+2) 

108 

GOTO  130 

109 

C 

110 

110 

PNTYPE  = 

ASSGN1 (OLDXDIFF+2,  XDIFF+2) 

1 1 1 

GOTO  133 

112 

C 

113 

120 

PNTYPE  = 

ASSGN2(OLDXDIFF*2,  XDIFF+2) 

114 

C 

115 

130 

IF  (PNTYPE 

.EQ.  TOSS)  GOTO  140 

'116  C 

117  C 

118  C  IF  THE  LOGICAL  VARIABLE  "SWITCHXY"  IS  SET  TO  .TRUE.*  THEN  THE 

119  C  X  AND  Y  VALUES  HERE  SWITCHED  IN  THE  PROGRAM  "INITF1X"  AND  THUS 

120  C  TOPS  AND  BOTTOMS  MUST  BE  SWITCHED  HERE 

121  C 

122  IF  (SWITCH  XV)  PNTYPE  *  1  -  PNTYPE 

123  C 

124  C  THE  POINT  (X,V)  HAS  BEEN  CLASSIFIED  AS  A  “TOP"  OR  A  "BOTTOM" 

125  C  SO  OUTPUT  IT  IN  THE  PRESCRIBED  FORMAT 

126  C 

127  PACKED2  *  I LS(PNTYPE,35)  ♦  ILS(Y,18)  ♦  CATGRV 

128  CALL  WRITER  <  TAPEOUT ,  2,  X,  PACKED2  > 

129  C 

130  C 

131  C  THE  POINT  JUST  PROCESSED  ("X"/"Y")  IS  NO  LONGER  NEEDED.  THE 

132  C  DIFFERENCE  BETWEEN  IT  AND  THE  NEXT  POINT  ("XDIFF"  AND  "YDIFF")  ARE 

133  C  STILL  NEEDED.  THE  NEXT  POINT  CAN  READILY  BE  CALCULATED  SO  IT  IS 

134  C  DONE  HERE  IN  ANTICIPATION  OF  THE  NEXT  CALL. 

•135  C 

136  140  X  «  X  ♦  XD IFF 

.137  Y  «  Y  ♦  Y  DIFF 

138  OLDXDIFF  =  XDIFF 

139  OLO  YD  IFF  =  YDIFF 

140  C 

141  C  UPDATE  THE  DIFFERENT  TYPE  COUNT 

142  C 

143  PNTYPE  =  PNTYPE  ♦  2 

144  TYPECNT (3NTYPE>  *  T Y PE C NT ( PNT YPE >  ♦  1 

145  RETURN 

146  C 

147  C  A  GAP  WAS  FOUND.  OUTPUT  A  MESSAGE  AND  UPDATE  THE  PARAMATERS 

148  C 

149  200  WRITE  (PAPER, 900)  X-OLDXDIFF,  X,  X+XDIFF,  Y-OLDVDIFF,  Y,  Y+YDIFF# 

150  &  OLDXDIFF,  XDIFF,  OLOYDIFF,  YDIFF 

151  CALL  UPDATERR  (ERRLIST,  AREAS,  NODUMP) 

152  X  *  X  ♦  XDIFF 

-  153  Y  *  Y  ♦  YDIFF 

154  OLDXDIFF  =  XDIFF 

.  155  OLOYDIFF  =  YOIFF 

156  RETURN 

157  C 

158  900  FORMAT  (lx,****************  GAP  **************/ 1  OX, 

159,  &  2( '  PREVIOUS' ,16X,' THIS' ,16X,'NE XT*, 10X)/10X, 


153 


4-79  15.638 


ASS  I  6  N 


SUB.  FOR  CLAS I F  IC AT  ION  &  OUTPUT 


160  &  3< 9X, 'X',10X),3(9X, *Y ',10X)/1 OX, 6< 110,1  OX)/, 

161  8  2(2 OX, 2(110, 10X))> 

162  901  FORMAT  (1 X, ******  X  VALUE* ,18,'  IS  NOT  BETWEEN', 1 8,'  &',I8) 

163  END 


03-31-77  *  *SR  4 J  *  * 

SEC)  .61  LINES/MINUTE  15847 

NO  DIAGNOSTICS  IN  ABOVE  COMPILATION 
WERE  USED  FOR  THIS  COMPILATION 


154 


34-79  15.639  UPDATE  ERRORS  LA 

1  CUPDATE  UPDATE  ERRORS 

2  C 

3  SUBROUTINE  UPDATERR  (ARRAY*  AREA*  DUMP! 

4  IMPLICIT  INTE6ER  (A-Z) 

5  LOGICAL  DUMP 

6  C 

.  7  COMMON  /ERRORS/  ERRCOUNT 

8  DIMENSION  ARRAY  (20) 

9  C 

'  10  C 

11  C 

1  2  PNTR  =  ARRAY! 1  ) 

13  IF  (DUMP)  GOTO  100 

14  ERRCOUNT  =  ERRCOUNT  ♦  1 

15  IF  (ARRAY! PNT  R-1 )  .EQ.  AREA)  RETURN 

16  ARRAY  (  P NT  R )  «  AREA 

1  7  AR  R AY ( 1  )  =  ARRAY (1 )  ♦  1 

18  IF  (  PNTR  .NE.  20)  RETURN 

19  100  IF  (PNTR  .EQ.  3)  RETURN 

20  IF  (ARRAY(2)  .EQ.  -3)  PRINT  903 

21  IF  (AR?AY  (2)  .EQ.  -2)  PRINT  904 

22  IF  (ARRA  Y(2)  .EQ.  -1)  PRINT  901 

23  IF  (ARRAY(2)  .EQ.  0)  PRINT  902 

24  STOP  =  20 

25  IF  ( D UM3 )  STOP  «  PNTR  -  1 

26  PRINT  9D0*  (ARRAY ( I ) *  I  >  3*ST0P) 

27  PNTR  «  3 

28  RETURN 

*29  900  FORMAT  (18(1X*I6>) 

30  901  FORMAT  (1x*»*****  GAPS  OCCURRED  IN  THESE  AREAS’) 

•31  902  FORMAT  (lx*’*****  PROBLEMS  WITH  BOTTOMS  &  TOPS  IN  THESE  AREAS’) 

32  903  FORMAT  (lx*’*****  X*Y  PROBLEMS  OCCURRED  IN  THESE  AREAS’) 

33  904  FORMAT  (lx*’*****  X  VALUE  OUT  OF  RANGE  IN  THESE  AREAS’) 

34  END 


03-31-77  *  *SR4 J  *  * 

SEC)  .25  LINES/MINUTE  7973 

NO  DIAGNOSTICS  IN  ABOVE  COMPILATION 
WERE  USED  FOR  THIS  COMPILATION 
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T 

1 

4-79 

15.639 

LAB 

1 

SUBROUTINE  GETCAT  (UN1QUE/CAT/FTCD/*/*) 

2 

IMPLICIT  INTEGER  <A-V) 

3 

COMMON  )  1NPARAM  /  I NP  U  T /E  N  DM  A  R  K 

4 

DIMENSION  I N ( 3 1 0 ) 

3 

DATA  PTR/dUFSIZ/  1/310  / 

6 

DATA  LASTFC  /  0  / 

7 

c 

8 

IF  (  LASTFC  .NE.  0)  60T0  800 

9 

LASTFC  *  INPUT 

10 

READ! INPUT /END >900)  IN 

11 

UNIQUE  =  I N  ( 1  ) 

1  2 

CAT  =  I  N(  2  ) 

13 

FTCD  =  IN(3) 

14 

PTR  =  4 

15 

RETURN 

16 

c 

1  7 

ENTRY  GETXY  (  X/  Y/  */  *  ) 

18 

IF  (  LASTFC  .EQ.  0)  LASTFC  =  INPUT 

1  9 

IF  (  LASTFC  .NE.  INPUT)  GOTO  800 

20 

120 

IF  (  PTR  .EQ.  1)  READ(INPUT/END*900)  IN 

21 

IF  (  PTR  +  2  .LE.  BUFSIZ  )  GOTO  125 

22 

PTR  =  1 

23 

GOTO  120 

24 

C 

25 

125 

X  =  IN(PTR) 

26 

Y  *  IN(PTR+1) 

27 

PTR  =  PTR+2 

28 

IF  <  Y  .NE.  ENDMARK)  RETURN 

29 

C 

30 

PTR  *  1 

31 

LASTFC  =  0 

* 

32 

RETURN  1 

33 

C 

34 

800 

WR  ITE  <6/80  1  )  INPUT/LASTFC 

35 

801 

FORMAT! •<*><*><*>  ATTEMPTED  TO  READ  FROM  FC*/I3/ 

36 

&  *  BEFORE  BUFFER  FROM  FC/I3/*  WAS  EMPTY*) 

37 

STOP 

38 

C 

39 

900 

RETURN  2 

40 

END 

03- 

31-77  *  *SR  4 J  ** 

1 

SEC) 

.26 

LINES/MINUTE  8919 

NO 

DIAGNOSTICS  IN  ABOVE  COMPILATION 

WERE 

USED  FOR 

THIS  COMPILATION 

1 
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L 

♦ 

in 

14-79 

15 

.640 

Li 

1 

SUBROUTINE  WRITER  (  FILECD/CNT/X1/X2/X3/X4/X5) 

2 

IMPLICIT  INTEGER  (A-Z) 

3 

COMMON  /INPARAH  /  INPUT  /ENDMARK 

4 

DIMENSION  X(5)/  0UTBUFFC310) 

5 

DATA  PTR/8UFSIZ  /  1/310  / 

6 

DATA  LASrFC  /O/ 

7 

C 

8 

X<1)  =  XI 

9 

IF  <  CNT  .GE.  2)  X ( 2)  •  X2 

'  10 

IF  <  CNT  .GE.  3)  X  (  3)  *  X3 

1 1 

IF  (  CNT  .GE.  4)  X  <4)  «  X4 

12 

IF  (  CNT  .GE.  5)  X ( 5)  *  X5 

13 

IF  C  LA  ST  F  C  .SQ.  0)  LAST  FC  *  FILECD 

14 

IF  (  LASTFC  .NE.  FILECD)  GOTO  800 

15 

IF  (  PTR^CNT  .LE.  BUFSIZ)  GOTO  100 

16 

WRITECF ILECD)OUTBUFF 

17 

PTR  «  1 

18 

100 

DO  200  1=1 /CNT 

19 

OUTBUFF (PTR)  »  X  C I ) 

20 

200 

PTR  =  PTR  ♦  1 

21 

C 

22 

IF  (  X( CM  T )  .NE.  ENDMARK)  RETURN 

23 

WRITE  (F  I.€CD)  OUTBUFF 

24 

PTR  =  1 

25 

LASTFC  =  0 

26 

RETURN 

27 

c 

28 

800 

WRITEC6/8D1)  F  ILEC D/LAS T FC 

H 

*  29 

801 

FORMAT  (  *  <*><*><*>  ATTEMPTED  TO  WRITE  TO  FC/I3/ 

30 

&  *  BEFORE  DUMPING  BUFFER  FOR  FC  */l3) 

-  31 

STOP 

32 

END 

03-31-77 

**SR4J** 

SEC) 

.25 

LINES/MINUTE  7574 

NO 

DIAGNOSTICS  IN  ABOVE  COMPILATION 

1 

WERE 

» 

t 

0 

USED 

FOR 

THIS  COMPILATION 
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L 

• 

8'  78 


17.651 


COUNT 


COUNT  NUMBER  OF  POINTS  IN  C  A  C  F.  XBIN 


9 

C 

10 

C 

1  1 

c 

1? 

C 

13 

c 

1  4 

c 

1  5 

c 

16  .  . 

-  c 

17 

c 

.  .J8^.._ 

(L.  . 

19 

c 

_  10  _ 

...c 

21 

c 

?  2 

.  c 

23 

c 

.  2A.. 

f 

25 

c 

.  26  ... 

jC  ...  . 

27 

c 

._  28. 

.  <L  .. 

29 

c 

30 

31 

. 

c 

..  _  3.2.. 

.  £  . 

33 

c 

3.4 . 

c. 

35 

c 

.  36 

.  c 

37 

c 

__  3.8  .  .  . 

c_ 

39 

c 

.  40 

...  c 

41 

c 

.  E  . 

43 

c 

44 

.  c 

45 

c 

4  6 

c 

47 

A8  ._  . 

c 

..c. 

49 

c 

_ 50 _ 

.  c. 

51 

c 

_  52  .. 

_ c 

INPUT 

FILE  CODE 

01 _  .  INPUT  DATA  IN  THE  FOLLOWING  FORMAT 

(  BOUNDARY  NUMBER  ) 

(  X-COORDINATE./  I  Y.-CDQ_R  .DI_NATE,C  ATEGORYj,  ftcdJ  ) 
(  X-COORDINATE,  [Y-COORD  INATF/C ategory, ftcd J  ) 


(  -1/  -1  ) 

(  BOUNDARY  M  U_MB  E  R  ) 


.  .E.Q.F  _ 


02  QNE  4._W.0RD  RECORD  AS  FOLLOWS 

(  MINX,  M  A  X  X  ,  TOTAL  POINTS,  "OUTBKWRD"  (LOGICAL  VARIABLE)  ) 
OUTPUT 

_ EJL£._LOILE _ _  _ 

03  THE  INPUT  ARRANGED  IN  THE  FOLLOWING  FORMAT 

-  - - XEXOLUD.IN.G  .AN  Y..  AREAS  _QEL  £T  E'jJ  .  _ 

_  ( CJjQlLNDARJI ...  A,.XjtC  QQRD  I  Y- COD  RD.aC.6  IEG  QRJC  SLeXIC  DJJL  _  _ 

(  [BOUNDARY  «,X-COORD],  C Y- C 009 D , C A T E F 0 R Y  0,FTCD3) 


(  -1,  -1  ) 

(  C90UNOARY  A,_X-COO_RD]  ,  C  Y-COOR  D,  C  AT.EG  OR  Y  W  ,_F  T  C  D  3  ) 


_  .EOF 


_ O.ftLEL.  4 — W.O  R  D  .  B  EX  QRD  1D.E.NJXCAL  TO  THE  RECORD  Gil  INPUT 

02,  PERHAPS  MODIFIFO  THROUGH  DELETES 

T.ilE.  X-  LLLN-XJIUN1  S  ,_ _T£ N.X E  R _ RUIQfi-D- _ _ 

IF  THE  BOOLEAN  VARIABLE  "OOTBKWRO"  IS  SET  .TRUE., 

- 1  ttOJ  .XHE  X.  -  3 1  N  COiLN-LS_.  ARE  JWR  I  T  IXM.  Q  UT.  18  OJY!. 

MAXIMUM  X  TO  MINIMUM  X. 

~LE — J-LLE-  -RQXLEl  N  _  V-AR I A  XL£__ "  0  U  I  u  KVFRX  "  XX  SET  .1  AX.  SE.  ,  - 
THEN  THE  XBIN  COUNTS  ARE  WRITTEN  OUT  FROM 
_ iUXJXELLCl  X _ 1Q..MAXLMUM.  _X  . . . . . ...  _ 

-NO I£i_-TRE  —bDOl. £A N.  . V AR.I  ABE  E_  1' 0  U.T.BXW  RD  *!_  I  X. PASS  E  D 
IN  THE  RECORD  OF  INPUT  02  FROM  THE 
- P.RECEtUNto  PROXRAia^  _  _ 


c 


IMPLICIT  INTEGER  C  A -Z  ) 


7  LOGICAL  OUTBKWRO 

i _ DIMENSION  XB  I  N  (38CC) _ 

'  59  DIMENSION  DELE  (1) 

_ tQ _ COMMON  BU  F  F  (  1  55,2),6UFP  TR _ 

.  61  C 

_ 62 _ DATA  MASK  /  0777777  /  X  R  A  NG  £  ,  LASTOELE  /  3800,1  / 

63  DATA  DELE  7  0  / 

64  _ C _ 

65  C 

66  _ BUFPTR  =  1 _ 

67  READ  (02)  MINX,  MAXX,  NUMPTS,  OUTBKWRD 

68  _ IF  (OUT BKWRD)  WRITE  (6/3) _ 

69  WRITE  (6,1)  ’INPUT  ’,  MINX,  MAXX,  NUMPTS 

70  _ IF  (MAXX-MINX+21  .  GT .  X  RANGE)  GOTO  203 _ 

71  C 

_ 72 _ DO  5  1  =  1, XRA  NGE _ 

73 
_ 74. 

75 

76 


77  SKIPPED  =  0 

_ 78 _ C _ 


79 

.  80 

7 

REAO(01 ,END=1 00)  BOUNDARY 

DO  8  I  =  1 ,LASTDELE 

81 

82 

9 

IF  (BOUNDARY  .NE.  DELE(I))  GOTO  8 

READ  (01  ,END  =  1C:0)  X,Y 

83 

84 

IF  (X  .EQ.  -1)  GOTO  7 

SKIPPED  =  SKIPPED  ♦  1 

85 

86 

C 

GOTO  9 

87  ’8  CONTINUE 

88  C 


10  READ  (01, END  = 100)  X,  Y 

_ IF  (X  .  EGi.  -1  )  GOTO  2  0 _ _ 

XB I N  (X-OFFSET)  =  XB  I  N  (X -OFFS FT )  +  1 

_ PACKX  =  ILS (BOUNDARY, 18)  *  X _ 

CALL  D UMPB ( P ACKX , Y ) 

_ PNT  SRE  AD  =  PNTSREAD  *  J _ 

95  ""  _  .  . 

_ 96. 

97 
•_98 
99 
1  CO 

'101  100  TOTIN  =  PNTSREAD  +  SKIPPED 

_J  _C2_ _ START  »  1 _ 

103  101  IF  (XBIN(START)  .NE.  0)  GOTO  102 

1  04 _ SJ ART  =  START  +  1 _ 


GOTO  10 


20  CALL  DUMPB(-1 ,-1 ) 
GOTO  7 


89 

90 

91 

9J 

93 

94 


5  XBIN(I)  =  0 

C _ 

OFFSET  =  MINX  -  (XRANGE  -  MAXX  *  MINX)/2 
_ PNTSR E  AD  =  0 _ 


8-  78 


1 ?. 651 


GOTO  101 

MINX  =  START  ♦  OFFSET 


1  09 

1  10 

103 

IF  (XBIN(STOP)  .NE.  0)  GOTO  104 

STQP  =  S.TCP  -  1 

1  11 

J  1  2 

C 

GOTO  103 

•  j 

1  1  3 

1  1  4 

104 

C 

MAXX  =  STOP  +  OFFSET 

•  1 

1  15 

.116.  .... 

C 

.  IfOUF.PTR  .NE.  1).  URITF  (03)  BUFF 

1  17 

11.8. 

c 

- 1 

1  19 

1  20 

WRI  TE  (6,1  )  'OUTPUT ' , MINX, MAXX, P NT  SREAC 

IF  (SKIPPED  ,NE,  0)  WRITE(6,2)  SKJPPED 

1  21 

J  22 . 

IF  (TOT  IN  .LT.  MUMPTS)  WRITF  (6,111)  NUMPTS  -  TOTIN 
.IF  (TOTIN  .GT.  NUMPTS)  WRITE  (6,112)  TOTIN  -NUMPTS 

1  23 

1  24  _ 

.  c 

IF  (X  .NE.  -1)  WRITE  (6,113)  X,  Y 

1  25 

1  26  ... 

c 

WRITE  (04)  MINX,MAyX,PNTSREAD,0UT3KWRD 

1  27 

1.28_ 

c 

_ IF  (.NOT.  Ci-'TbXWRJJJ.  GOTO  130  _ _  . 

1  29 

A1Q  . 

c 

DO  HO  J  =  START,  S.TQP./  1.0.  _  ....  _ 

1  31 

112  ... 

.1 1C. 

K  =  STOP  +  START  -  J  +  1 
.  .  WR  I  T£(Q4)  (XBIN(K-L)  ,  L.  .-...1  «A0>_  . 

1  33 

J  14_  . 

.  13.0. 

STOP 

.  DO.  1  5  1..  1  =  S  T  A  R  T, STOP,  10  .  _ 

1  35 

1  36  ... 

151 

WRITE(04)  ( X  B  I  N ( J )  ,  J  = 1,1  +  9) 

STOP 

1  37 

_1_l.fi  __ 

1 

FORMAT  (//IX, A6/4X, 'MINIMUM,  MAXIMUM,  TOTAL  POINTS:', 

.  s  _  I  a,  'ulVULl!  *L/J10)  _ _ _ _  _ 

1  39 

_140_ . 

1  41 

_1_42 _ 

1  43 

144 . . 

1  45 
1  46 
1  4  7 
148  ... 

EM  ORY 


_ 2 _ 

1  1  1 

_ U2_. 

113 

. ..  C 

200 


EXPANDED 


FORMAT  ( IX, 25  ('*'),  '  XBINS  WERE  WRITTEN  IN  DESCENDING  ORDER') 

UX,.'  *****', IS,'  POINTS  WERE  DELETED') _ _ 

FORMAT  ('  *****  EXPECT I  NG  '  /  1 10  ,  '  MORE  POINTS  AT  EOF  ') 

F.QJLMAT _t*  .**.**.  *.ltl.1  C,  L_UMEXP_E.CXE0-_.RQ.IN.TS_8.E  AD  AND.  XO.UNT  ED*  )  _ 
FORMAT  ('  *****  DID  NOT  END  WITH  (-1,-1)  TRAILER  °OINT') 


WRITE  (6,201)  MAXX-MINX+21 

JLTOE. _ _ _ 

FORMAT  (•  **********  the  ARRAY  "X  6 1 N"  MUST  BE  DIMENSIONED  AT' 

JEMB _  _ _ _ _ _  _ 

USE  SLIMITS  OR  CORE=  OPTION  FOR  NEXT  RUN 


,110) 


.  . x  ......  . 


0? . 3  5  3 


Y  S  0  P  T 


LA  B  r 


1 

C 

2 

C 

3 

C 

4 

C 

5 

C 

6 

C 

7 

c 

6 

c 

9 

c 

10 

c 

11 

c 

12 

c 

1  3 

c 

14 

c 

1  5 

c 

16 

c 

17 

1  8 

19 

20 

21 

22 

23 

c 

24 

c 

25 

c 

26 

c 

27 

c 

28 

29 

30 

31 

c 

32 

c 

33 

c 

34 

c 

35 

c 

36 

c 

37 

c 

38 

C  : 

39 

c 

40 

c 

41 

c 

42 

c 

43 

c 

44 

c 

45 

c 

46 

c 

47 

c 

48 

c 

49 

c 

50 

c 

51 

c 

52 

c 

Y  S  0  R  T 


THIS  PROGRAM  IS  A  MOO  IF  I C  A  T I  0  N  OF  XSORT. 

THE  PURPOSE  IS  TO  SORT  SOME  INPUT  DATA  ACCORDING  TO  THE  X-VALUE 
ASSOCIATED  WITH  THAT  DATA. 


IN  THIS  MODIFIED  VERSION'WE  ARE  A  C  TU  ALL  Y'  SO  RT  I  NG  ACCORDING  TO 
Y-VALUES  FROM  LARGEST  TO  SMALLEST  . 


RATHER  THAN  CHANGE  ALL  VARIABLE  NAMES/  ALL  REFERENCES  TO  *X' 

WERE  LEFT  UNCHANG  ED. 

THE_  CHANGES  TO  ALLOW  SORTING  FROM  LARGEST  TO  SMALLEST  INSTEAD  OF 
SMALLEST  TO  LARGES  T  A R  E  CO  MM  E  N  T  E  D  . 

ALSO  THE  PRM  F  L  MUST  C_0  NT_A  I  N_  T  H  E  COUNTS  FOR  X  VALUES  FROM  LARGEST 
TO  SMALLEST  AS  WELL. 


IMPLICIT  INTEGER  (  A- Z  ) 

LOGICAL  3IG2SMAL 

D I  ME  NS  I  ON  X  B  I  N  (  2000) /TEST ( 2000  j , I N ( 2/  3 6  00 0 ) 
COMMON  BUFF  (_1  55,2), 3UFPTR 
DATA  PRMFL, INT AP/OTAP  /  2 3/ 1/2/ 

DATA  FC III 


*>*>*>*>*>*>*>*>*> 


LIMIT  --  SHOULD  BE  SET  TO  THE  DIMENSION  OF  ,IN(2,?)* 


DATA  NUMBIN/L I  MI T/NUMPASS  /  2  000/36000,10/ 
DATA  LOUMSK  /  0777777/ 

DATA  FLIP  /  0400000000000/ 


*>*>*>*>*>*>*>*>*> 


IN  —  ARRAY  FOR  DATA  SORTED  ACCORDING  TO  X  -  VALUES/  WHICh  IS  THE 
PROGRAM  OUTPUT.  EACH  DATA  VALUE  CONSISTS  OF  2  WORDS. 


X  B  I  N  (  J  ) 


CONTAINS  THE  PROPER  INDEX  FOR  ARRAY  'IN'  IN  WHICH  TO  PLACE  T 
NEXT  DATA  VALUE  WHOSE  X-VALUE  IS  'J'. 

SO  IF  ONE  READS  IN  *  X  ,  DATA  •  THE  DATA  IS  STORED  AT 
IN  (  XPIN  (X)'j,  AND  XbIN(X)  <-  XHIN(X)  +  1  SO  THAT  ThE 
NEXT  DATA  READ  IN  WITH  THE  SAME  X-VALUE  WILL  BE  STORED 
IN  THE  NEXT  LOCATION  IN  ‘IN'. 


TE  ST  - 


-  AUXILIARY  ARRAY  USED  IN  CONJUNCTION  WITH  X  a  I N  SO  THAT  A  SPECIA 
FLAG  CAN  BE  SET  FOR  THE  FIRST  DATA  VALUE  OF  A  EOUNDARY  IN  EACH 
X9IN.  THIS  ALLOWS  US  TO  RECOGNIZE  THE  DATA  IN  AN  XBIN  THAT  BE 
TO  THE  SAME  BOUNDARY. 


THF  PRMFL  IS  ASSUMED  TO  HAVE  THE  COUNT  OF  THE  NUMBER  OF 
DATA  VALUES  FOR  EACH  XBIN/  IN  SEQUENCE.  TO  CONSERVE  FILE  SPACE/  EACH 
RECORD  (IN  BINARY  UNFORMATTED)  CONTAINS  THE  COUNT  FOR  10  X-VALUES. 


■ 
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L  ABE 


05 

I  F  (  X  .  EQ.  0  .AND.'  DATA  '.Ed.  0)  GOTO  150 

C6 

C 

1  C7 

UNIQUE  =  IRS(X*18) 

1  08 

X  =  AND (X/LOUMSK > 

1  09 

C 

1  10 

C 

*************************************************************** 

'  11 

C 

12 

C 

THIS 

CHANGE  CAUSES  US  TO  SORT  FROM  LARGEST  TO  SMALLEST 

i  1  3 

C 

1  1  4 

IF (9IG2SMAL  )  X  =  MAXX+1  -  X 

15 

C 

16 

C 

*  *  * 

************************************************************** 

17 

c 

18 

I  F ( X  .GT.  0)  GOTO  130 

19 

c 

20 

c 

DATA 

ABOUT  TO  BEGIN  A  NEW  BOUNDARY/  SO  WE  REINITIALIZE  TEST  ARRAY 

21 

c 

THE 

FIRST  POINT  OF  EACH  BOUNDARY  IN  EACH  X  =31 N  GETS  A  SPECIAL  FLAG 

22 

c 

23 

DO  15  5  M9  =  1  /NUMB  I N 

24 

155 

TE  ST (M9  )  =  0 

25 

GOTO  150 

26 

130 

A  D  J  X  =  X-STRT 

27 

I F ( A  D  J  X  .LE.  0  .OR.  X  .GT.  STOP)  GOTO  150 

28 

CNT  =  CNT+1 

29 

INDEX  =  XBIN(ADJX) 

30 

I F  (  INDEX  .LE.  LIMIT)  GOTO  234 

31 

WRITEC6/235)  X/DATA/ I NDEX/ ADJ  X/XBINCAOJ  X- 1  ),XBIN(A0JX  +  1) 

32 

235 

FORMAT ( '  INDEX  OUT  OF  RANGE,/6I8) 

33 

STOP 

34 

234 

I F ( I N  < 1  /INDEX)  .NE.  0)  GOTO  800 

35 

IF (TEST (ADJX)  .NE.  0)  GOTO  183 

36 

TEST (ADJX)  =  1 

37 

c 

38 

c 

THIS  DATA  VALUE  IS  BEING  FLAGGED  BY  SETTING  THE  FEATURE  CODE  (FC) 

39 

c 

--THE  LAST  TWC  BITS  OF  THE  DATA  VALUE  —  TO  ZERO 

40 

c 

VARIABLE  'FC'  IS  THE  VALUE  FOR  FEATURE  CODE  FOR  AREAS 

41 

c 

42 

DATA  =  DATA  -  FC 

43 

18.3 

INC1  / INDEX)  =  DATA 

44 

INC2/INDEX)  =  UNIQUE 

4  5 

XBIN(ADJX)  =  INDEX  1 

46 

GOTO  150 

47 

c 

48 

c 

WRITE  OUT  FILLED  ARRAY  OF  SORTED  X'S  TO  TAPE 

49 

c 

50 

200 

EOF  =  0 

51 

WRITE (OTAP)  X  B  I  N  (  1 ) - 1 

52 

IF(XBIN(1  )  .GT.  1  ) 

53 

& 

WRITE(OTAP)  ((IN(K/J)/J=1/X8IN(1)-1 )/K=1/?) 

54 

c 

55 

LENG  =  STCP-STRT 

56 

DO  250  I=2/LENG 

78  02.353 
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OIF  =  X  B  I  to  (  I  )  -  XB1NC  1  -1  ) 

WRITE(OTAP)  D  IF 
I  F ( D  I  F  .GT.  0) 

&  WR I TECOTAP)  (  (IN<K/J ) /J_*X  BI N(  I- 1 ) / XB  I N ( I ) -1 ) / <* 1 / 2 ) 
I  CONTINUE 


C _ 

C  E  R I 

s _ 

800 

801 


WRITE  (6/13)  PASS/C  NT /XBIN(LENG)-1 

F  0  RMAK*  IN  PAS  S  O' /I  3/1 1  0_/*  PTS  WERE  WRITTEN  TO  TAPE. 
I  8 / '  LOCATIONS  IN  THE  SORTING  ARAY') 

STRT  =  STOP  _  _ 

STOP  =  S  TOP  +  2 
I  F  (DONE  .  E0._0)_  GOTO_  5  __ 

WRITE (6/901) 

F0RMAXL////20X/' ###//ALWE  _ARE_  DONEJ  ) _ _ 

STOP 


WRITE(6/801 )  X /CNT/XB I N( AD JX-1  )  /  XB  IN( AD JX  )  /X  6  IN  < AD J  X+ 1  ! 
FORMAT ( *  SORTING  ERROR  FOR  X = '  /  I  6  /  5 X / I  6 / 1  POINTS  ALREAI 
•SORTED.  XB  I  N  VALUES  FOR  (  AO  J  X  - 1  )  /  A  0  J  X  /  (  AD  J  X  + 1  ) '"/ 3  I  8  ! 
STOP 


USED* 


EXPANDED  . 


_ DONE  =  1 _ _ _ _ 

STOP  =  STOP-1 

WRJT  E  (6/921  )  INDEX-1  /XBIN  (  INOJEX^I  >  /ST  RT  /STOP 
FORMAT! ///' NO  MORE  XBINS  TO  PROCESS.  LAST  BIN  USEO'/I 
;  '  LAST  LOCATION  USED'/I7/'  START  AND  ST0P'/2I8) 

GOTO  101 

END _  _ _  _ _ 

USE  SLIMITS  OR  CORE=  OPTION  FOR  NEXT  RUN 
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1 

C 

BUILD 

2 

c 

3 

c 

PROGRAM  TO  FIND  'BOTTOMS'  AND  'TOPS'  FOR  FIELDS  WITHIN  EACH 

4 

c 

X-B I N *  FOR  CONSTRUCTION  OF  D.BASE 

5 

c 

OUTPUT  IS  FOR  EACH  X-BIN  A  SERIES  OF  RECORDS: 

6 

7 

c 

r 

(YSTART,YS TOP, CATE GORY) 

8 

l 

IMPLICIT  INTEGER  (A-Z) 

9 

DIMENSION  OT (  1  500) 

10 

COMMON  IN(2, 500), Y(500), TYPE (500) 

1  1 

c 

12 

DATA  INTAP, OTAP, BOTTOM, TOP  /  1,2,0,17 

1  3 

DATA  LIMIT  /500/ 

1  4 

c 

1  5 

READ(INTAP)  FIRSTX,LASTX 

16 

NUMX  =  LASTX  -  FIRSTX  ♦  1 

1  7 

WRITE (OT  AP )  NUMX 

18 

DO  500  LOOP  =  1  ,NUMX 

19 

CNT  =  1 

20 

READ(INTAP)  NUMY 

21 

If ( N  UM  Y  .GT.  0)  READ ( I NTAP  )  (  (IN (K,J ) ,  J  =  1 ,NUMY ) ,KS1 ,2) 

22 

WRITE (6,10)  LOOP+F IRSTX— 1,NUMY 

23 

10 

FORMAT (/,30X, '<  <  <  <  LINE  ',15,'  HAS  ',14,'  POINTS') 

24 

c 

25 

I F (NUMY  .LE.  LIMIT)  GOTO  95 

26 

WRITE  (6,30)  LIMIT 

27 

30 

FORMAT!///, '  *  *  *  *  TOO  MANY  POINTS  IN  THIS  COLUMN.  PROGRAM 

28 

& 

•DIMENSIONS  MUST  BE  EXTENDED  BEYOND  ' , 1 4 ) 

29 

STOP 

30 

95 

I F (NUMY  .EQ.  0)  GOTO  300 

31 

STRT  =  1 

32 

c 

33 

c 

34 

100 

CALL  SORT (NUMY, STRT, ST  OP, CAT, UNIQUE) 

35 

OSTRT  =  STRT 

36 

OSTOP  =  STOP 

37 

IF  (STRT  .GT.  NUMY )GOTO  300 

38 

ERR  =  0 

39 

12 

FORMAT (  'CAT*', 18,'  HAS', 15,'  POINTS,  WITH  RANGE=',2I8, 

40 

8 

'  UNIQUE  = ' , I 8 ) 

41 

c 

42 

120 

IF(TYPE(STRT)  .EQ.  BOTTOM)  GOTO  200 

43 

ERR  =  ERR+1 

44 

I  F(ERR  .LE  .  1  ) 

45 

& 

WRITE (6,1 2)  CAT, OST OP-OS TRT+1,Y (OSTRT ),Y( OSTOP), UNIQUE 

46 

I F ( E  R  R  .LE.  1)  WRITE(6,19)  ( Y (  I  9  )  , T Y P E  ( I 9 ) , I 9= OS TR T , 0 S TOP ) 

47 

19 

FORMAT (20X,' THE  YVALUES  AND  CORRESPONDING  TYPES  ARE',/, 12(18 

48 

c 

49 

c 

CHECK  FOR  ADJACENT  TOP  AND  BOTTOM  OR  IDENTICAL  TOP  AND  BOTTOM 

50 

c 

51 

NXT  =  STRT 

52 

IF  (TYPE(NXT+1)  .NE.  BOTTOM)  GOTO  121 

53 

IF  ( Y  (NXT)  .EQ.  Y(NXT*1)>  GOTO  230 
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54 

55 

56 

57 
56 
59 
6  0 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 
7  9 
80 
81 
82 

33 

34 
6  5 
86 
87 
83 

89 

90 

91 

92 

93 

94 

95 

96 
9  7 

98 

99 
1  00 
1  01 


DO  1210  DI  FF  =  1 ,3 

1210  IF  ( Y ( NX  T )  +D1FF  . fc Q .  Y(NXT+1>)  GOTO  240 

C 

C 

C  THESE  POINTS  HAVE  THEIR  TOP  A,mD  BOTTOM  INTERCHANGED 

C  SO  ALLOW  THEM  TO  HE  OUTPUT 

C 

IF  (STRT+1  .GT.  STOP)  GOTO  121 
WRITE (6# 4000 )Y(STRT),Y(STRT+1> 

4000  FORMAT!/, 5X,  •  <* X  * > W A R N  I N G  ,  THESE  POINTS  HAD  THEIR  TOPS  AND', 

4  '  30TT0MS  INTERCHANGED  ’,216) 

NXT  =  STRT  +  1 

GOTO  250 
C 

121  WRITE(6,15)  Y  (STRT ) ,Y ( STRT+1  ) ,TYPL (STR T+1  ) 

15  FORMAT  (/,5X,  *  *  +  *+  BEGIN  FIELD  W/0  buTTOM  AT', 16,'  IT  WAS  IGNORED' 
&  '  NEXT  POINT  AND  TYPE  IS',18,12) 

STRT  =  STRT+1 
GOTO  120 
C 

200  NXT  =  STRT+1 

201  IFCNXT  .LE.  STOP)  GOTO  220 
ERR  =  ERR+1 

I F ( E  R  R  .LE.  1  ) 

4  WKITE(6,12)  CAT, OSTOP-OSTRT +1  ,Y  (OSTRT  ),Y  (OSTOP)  , UNIQUE 

I F ( E  R  R  .LE.  1)  WRITE(6,19)  ( Y ( I  9 ) , T Y P E ( I  9 ) , I  9  =  0 S T R T , 0 S T OP ) 

WRITE (6,20)  Y  (STOP) 

20  FORMAT (/,5X,  1  *  *  *  *  ENDED  W/0  TOP.  THIS  POINT  I GNO RE D ' , 2  I  3 ) 

NXT  =  STOP 
GOTO  290 
C 

220  IF (TYPEC NXT)  .EQ.  TOP)  GOTO  250 
ERR  =  ERR+1 
I F (ER  R  .LE .  1  ) 

<4  WRITE(6,12)  CAT, OSTOP-OSTRT  +  1  ,Y(OSTRT),Y(OSTOP), UNIQUE 

I  F ( E  R  R  .LE.  1)  WRITE(6,19)  ( Y ( I  )  )  ,  T Y P E < I  9 ) , I  9  =  0 S T R T , 0 S T OP  ) 

C 

C  CHECK  FOR  ADJACENT  TOP  AND  BOTTOM  OR  IDENTICAL  TOP  AND  BOTTOM 
C 

IF  (TYPECNXT+1)  ,NE.  TOP)  GOTO  221 
IF  ( Y (NXT)  .EQ.  Y(NXT  +  1  ) )  GOTO  230 
DO  2200  DIFF=1,3 

2200  IF  (Y(NXT)+DIFF  .EQ.  Y(NXT+1))  GOTO  240 

C 

221  WRITE  (6,22)  Y  (  S TR T ) , Y ( N X T  ) 

22  FORMAT  ( / , 5  X,  '  *  *  2  BOTTOMS  IN  A  ROW*, 18,'  AND', 13,'  2ND  IGNORED'). 
NXT  =  NXT+1 
GOTO  201 
C 

C  TOP  AND  BOTTOM  WERE  ASSIGNED  TO  THE  SAME  Y  VALJE  FOR  THIS  X-6IN  SO 
C  IGNORE  BOTH  OF  THEM 

C 

«■  50  WRITE  (6,2300)  Y(NXT) 
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107 

GOTO  241 

1  08 

C 

109 

C 

110 

C 

ADJACENT  POINTS  WERE  CALLED  TOP  AND  BOTTOM*  IGNORE  THEM  BOTH 

1 1 1 

C 

112 

240 

WRITE (6*2400 )  (  Y ( I ) * T Y P E ( I ) *  I  =  NX  T  *  NXT  +  1)*DIFF 

113 

C 

1  14 

C 

IGNORE  THE  TWO  POINTS  THAT  WERE  TOP  AND  BOTTOM  AND  EQUAL  OR  ADJACENT 

115 

C 

116 

24  1 

NXT  =  NX  T  +  1 

1 1  7 

IF  (TYPE(NXT-I)  . EQ.  TOP)  GOTO  290 

118 

NXT  =  NXT  ♦  1 

119 

GOTO  201 

1  20 

C 

121 

2300 

FORMAT  (’  ***  SAME  POINT  CALLED  TOP  &  BOTTOM  AND  IGNORED.  Y='*I8) 

1  22 

2400 

FORMAT  ('  ***  CLOSE  POINTS  CALLED  TOP  &  BOTTOM  AND  IGNORED.  Y’* 

123 

& 

*  VALUES  AND  TYPES  WE R E  '  *  2 ( I 8 *  I 2* 5 X) * • D I F F ER E N C E  OF  '*12) 

1  24 

C 

125 

C 

j 

126 

C 

EVERYTHING  LOOKS  OK.  SO  WRITE  TO  TAPE 

127 

C 

128 

250 

OT(CNT)  =  Y(STRT) 

1  29 

OT  (CNT  +  1 )  =  Y( NXT) 

130 

OT  (CNT  +  2)=CAT  +  I  LS ( UN  IQUE*1 8) 

131 

CNT  =  CNT+3 

132 

290 

STRT  =  NXT+1 

133 

I  F  ( S T  R T  .LE.  STOP)  GOTO  120 

134 

I  F  (  S  T  R  T  .LE.  NUMY)  GOTO  100 

•  135 

300 

CNT  =  CNT— 1 

1  36 

WRITE(OTAP)  CNT 

.  137 

I  F  ( C  NT  .GT.  0)  WRITE(OTAP)  ( OT ( J ) * J  =  1  * CNT ) 

138 

500 

CONTINUE 

1  39 

STOP 

140 

END 

03-31-77  *  *SR4 J  *  * 

(SEC)  .77  LINES/MINUTE  10801 

NO  DIAGNOSTICS  IN  ABOVE  COMPILATION 
.  WERE  USED  FOR  THIS  COMPILATION 
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7 

8 
9 

1  0 

1 1 
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1  6 
1  7 
18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 


SUBROUTINE  SORT(NUMY, STRT, ST  OP, CAT, UNIQUE) 

IMPLICIT  INTEGER  (A-Z) 

DIMENSION  DELE(15)/FLIP(15) 

COMMON  IN(2,5U0)/Y(500),TYPE  (500) 

DATA  MSKCAT  /O 777777/ 

DATA  DELE/2707, 2215, 4227, 12*0/ 

C  SPECIAL  FIXES  FOR  FILE  #1  ON  60/10  (WATERTOWN  #1) 

C  DATA  FLIP  /I  26, 499, 532, 589, «05, 833,1  170,1  1  90,  1  1  1  8,1  1  92,1  207, 

C  4  1364,3*0/ 

C 

DATA  FLIP  /  15*0/ 

DATA  SIZE/3/ 

C 

C 

1  STOP  =  STRT 

CAT  =  AND(IN(1, STRT), MSKCAT) 

UNIQUE  =  IN(2,STRT) 

DO  90  1=1, SIZE 

IF (UNIQUE  .EQ.  DEL  E (  I  )  )  GOTO  800 
90  CONTINUE 

BOTTOM  =  0 
TOP  =  1 

DO  99  11=1 ,S  IZE 

IF(UNIQUE  .NE.  FLIP(II))  GOTO  v9 
BOTTOM  =  1 
TOP  =  0 

99  CONTINUE 
C 

5  STOP  =  STOP+1 

I F ( S  T  OP  .GT.  NUMY)  GOTO  100 
N  XT  =  IN(2,ST0P) 

IF (UNIQUE  .EQ.  NX T )  GOTO  5 
C 

100  STOP  =  STOP-1 

DO  200  1  =  STRT  , STOP-1 
MIN  =  I LS ( IN (  1  ,  I )  ,1  ) 

NXT  =1+1 
DO  190  J=NXT,STOP 
NUM  =  I L  S (  I N (  1,J),1) 

I F (NUM-M IN)  150,140,190 
140  If(IN(1,I)  .GT.  0)  GOTO  190 
150  T  =  I N  ( 1  ,  J  ) 

I  N  (  1  ,  J  )  =  I  N  (  1  ,  I  ) 

I  N  (  1  ,  I  )  =  T 
MIN  =  NUM 
190  CONTINUE 
200  CONTINUE 
C 

DO  300  I=STRT,STOP 
NUM  =  I N ( 1 , I ) 

Y ( I )  =  F  L  D ( 1 ,17, NUM) 

I F (NUM  .LT.  0)  TYPE(I)  =  TOP 
I F ( N  U  M  .GT.  0)  TYPE(I)  =  BOTTOM 
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54 

300 

CONTINUE 

55 

C 

56 

I F ( S  T  R  T  .EQ.  STOP)  WRITE(6,7U0)  S T R T , U NI Q U E, N X T 

57 

700 

FORMAT!/, *  *  *  *  *  SINGLE  POINT  FOR  THIS  FIELD* 

58 

RETURN 

59 

800 

STRT  =  STRT+1 

60 

If  (STRT  .GT.  NUMY)  RETURN 

61 

IF  (IN(2,STRT  )  .NE.  UNIQUE)  GOTO  1 

62 

GOTO  800 

63 

END 

03-31-77  *  *SR  4 J  *  * 

(SEC)  .40  LINES/MINUTE  9366 

NO  DIAGNOSTICS  IN  ABOVE  COMPILATION 
WERE  USED  FOR  THIS  COMPILATION 
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DIMENSION  LOG ( 1 0,100) 

COMMON  GTmRT(1C00),STOP(1 GGU >, t AT NUM ( 1 ClOO)  ,OT  ( 5000) 


COMMON  /  S  Tx/  ST  ACiC(4,1C),T0Pl 


DATA  I  NT  AP,0TAP,YMIN,YMAX  /I, 2 ,  4500,6 

DATA  LIMIT  /SOD/ _  _ _ 

DATA  GAP,OvRLAP  /I, 2/ 

DATA  L  0«M  SK /  0777777/ 


TOP  =  C 


TOPI  -  0 

_ R£AD(1NTaP)  MO MX 

DO  V  L  7  6  1  =1,3600 
i&7 o  READ(INTAF’) 


hACH  PASS  CONSTRUCTS  A  COLUMN  (X13IN)  OF  T  H  £  CATEGORY  DATA  dASE 


DO  500  II  =  1601, NUMX 

_ LOOP  =  II _ 

YKANOE  =  YMAX+1-YMIN 

_ DO_  1  1  0_  If  1  ,  Y  RANGE _ _ 

110  0  T  ( I )  =  0 


READ (INTAP)  CNT 

_ CNT  =  CNT/3 _ 

_ IF  UNT  .OT.  OwRITEC  6,12)  lUoP,CNT _ 

12  FORMAT (20X,' XBIN  =',16,'  HAS', 15,'  FIELDS') 

IF  l  C  NT  .to.  0)  GOTO  450 


IF  ( C  i.T  .LL.  LIMI  D  oOTO  1  Is 
**R  I  T  E  (  6,  1  14) 


14  FORMAT!'***************  LIMIT  MOST  bE  INCREASED  *****»*•) 

_ _ STOP _ _ _ _ 

113  READ  Cl  NT  A P)  ( ST  ART (N) , STOP(a) , CATNOM (K) ,K*1 , CNT) 

34  FORM  AT  (5  (  216 , 1  X,01  2)  ) _ _ 

IF (CNT  .GT.  1)  CALL  SORT (CNT) 

FIELD  =  0 
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MX  I  =•  FIELD*  1 

UMti.al  =  IKS  (CA  r  N  G  N  (  N  XT  )  /  1  o ) 

NX  T  C  A  t  =  A  N  (T(  C  A  TNurt(  NX  T )  /LOtarfsK) 

C 

T5  If  (  ST  P  F  L  D  .TTT  STGpCNXT))  oOTO  eOC 

C 

C"  THIS  F  itcC<  ENCLOSES  l»;  t  NEXT  FIELD  jO-fTLL~TG  $T  AW  T  uf  n  t  X  Y  ~ 

C  Tut  CnlEbOk'  Y  Of"  P  N  E  S  t  N  T  FIELD.  ALSU  3  A  v  c  THIS  FIELD  ON  THt  STACK 
~C  F  OH  FILL  ON  EXIT  OF  Trit  ENCLOSED  FIcL&<S) 

C 

CALL  FILL  (ST  K  T  F  L  0  ,  ST  AH  T  <  NX  T  )  /t  AT/  ONI  00  E  /  Yrt  I N  ) 
if  (SI  PfLD-STOP(iIXT)  .ST.  7) 


a,  cat /NX  r  cat) 

CALL  F  ILL  (STRTFLD/STAKT (NX  I)  /CAT/UNIUUE/YrtiN) 


86 

TT7 

89 

90 

C 

C  INSlb'Jifl  CANT  LAP/  SO  NAkE  THE  FiELDS  MELT 
C 


CALL  f  ILLCSTkTFLO/SlARTUXTj  ,CAT/UNlUUt/YtolN 
bO  F  b  t>  G 


95  C 

96  C  o  I  b  N  I  fl CANT  LAP.  PEKHmPS  THEKt  lb  A  LA  Kb  tk  FIELD  ENCLOSING  THESE 

97  C  FIELDS  -HIGH  WILL  FILL  IN  THIS  AkEA. 

yd  c  check  Tiit  stac*  fck  the  en closinu  field  parameters. 

99  C 

TOO  3in  CALL  F  III  (  S  T  A  T  FL  D  /  S  T  P  F  LD  /  L  AT  ,  0  ,s  W  Ul  /  YMlN) 
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SFkTFLD  =  STPFLD  +  1 

STPFLO  =  STP _ _ 

'GOTO  35 

IT  (TOP  . LU.  0)  GOTO  381 

TEST  =  I  LSIUNIU,16)  ♦  U  .'J I  Ct  Ufc _ 

00  383  .11  si,  TOP 

1 F (  TEST  .Mb.  L0G(1,M1))  GOTO  363 
LOGc10,Ml)  =  -LdG(10,Ml  )-1 

GOTO  311 _  _ 

CONTINUE 

TOP  =  TOP  +  1 

LOO  (  1  ,  TOP  )  -  TEST _ _______ 

LO  G ( 2, TOP)  =  STRT 

L06(3,T0P  )  =  STP _ _ _ 

LOG( A, TuP )  s  C  A  T 1 

L0G(3,TUP)  =  STRT  FLO _ 

LO  G ( 6, TOP)  =  STPFLO 

LOG ( 7, TOP )  =  CAT _ 

LOG(  8/  TuP  )  =  START  (  NX  T  ) 

LOu ( V, TOP )  =  AND(ChTNUM(NXT) ,LOWMSK) 
LGG( 10, TOP)  =  -1 
GOTO  311 


390  CALL  P ROd(GAP, LOOP, STPFLO, UN  lQUc, START!  N XT), UNION  XT, .FALSE., 
4  CAT, NX T CAT  ) 

_ GOTO  30 _ 

OE  HAVE  PEACHEO  THE  LAST  FIELD  IN  THIS  SCAN  LINc. _ 

CHECK  THE  STACK.  To  SEE  IF  THERE  ARE  ANY  ENCLOSING  FIELDS  REMAINII 

TOO  CALL  FILl(STR1FLD,STPFLi),LA1,UNIUUE,YM1N) 

_ CALL  POP(  STRT  FLO,  STP  FLO,  CAT,  UN  I  OUE,  EMPTY) _ 

IF  (  .NOT.  EC1PTY)  uOTO  40C 

A50  tIH  II  E(OTAP)  (0T(M9),M9*1,YnANGE) _ 

CALL  PRodCOUM, LOOP, STkT,UNIuUE, STP, UNlGNXT,. TRUE., 

&  CAT,NXTCAT) 


Ml  =  1 

I F (  Ml  . o  T .  TOP)  GOTO  300 _ 

I F  (LOG  (  1 0  ,M1 )  .GT.  0)  uOTO  703 

L  0  G ( 10, Ml  )  =  -LOG(10,M1  ) _ 

Ml  =  M 1  +  1 

GOTO  707 _ 

"wR  IT E( 8,701 )  (L0G(M2,M1 ) ,M 2=2,10) 

FORMAT!/'  ENCLOSING  FIELD  GTR  T,SToP,CAT  =',316,'  ENCLOSED 
'  FIELD  S  TRT  , STOP,  CAT  =' ,316/ T30, 'NEXT  FIELD  STRT, CAT  =','216, 

*  LENGTH  OF  ERROR  =',I6) _ 

DO  720  M2  =  1,10 
L0G(M2,M1 )  =  L0G(M2,TOP) 
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1  7- 7  <S  16. Go? 
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SUdkuUTINE  PhUu(TYP£,XaIN/SrRT,UNIUUc*STP,UNIONXT,EOL* 
CAT/NXTCAT ) 

IMPLICIT  INTEGER  <A-Z> 

LOGICAL  EUL 

ChAKACTEkCHAhC^y- 

DIMENSION  LUo(2/0/ 1 U 0 ) /TOP  (b) 


UJVI’llll.TM  Kill 


DATA  MASK  /077777?/ 


m 

T3 - 

width  =  I  AbS  rsT 

3 

1  4 

IF(TUP(TY?E)  .G 

E.  MAX)  GOTo  600 

I  F  (  T OP  (TYPE)  .EO.  01  GOTO  11 
TEST  =  I L  S ( UN  Id UE# 1b)  +  UNiuNXT 


DO  100  I=1/T0P( TYPE) 

I F (  TEST  .EO.  L0G(TYPE,1 ,  I  )  )  GuTC  200 


100  CONTINUE 


ThIS  IS  A  htW  PROdLc.'t  SO  OUTPUT  ERROR  MESSAGE  AND  RECORD  IT  ON  LOG  FI 


110  CONTINUE 

WkITE(6#1C)  CrtAR(lYPE)/STRT/IAUS(STP-STra)^uNIUUE#UNljNXT 


10  FORMAT  (/*  1X/A6/  YSTART  A  N  u  WIDTH*', 
o  2  16 , 2X , '  Tub  FicLDS  AR£',2ii>) 

TOP < TYPE)  =  i OP (TYPE)+1 
L0G< T YFE, 1 , T0P( TYPE) )  =  1EST 

L0G(TYPE/2»T0P(TYPE>>  =  UMuNXT 
LOu(TYPE,3,TOP(  TYPE))  =  i  Li  (  X  Jl;u  1  6  )  t  STKT 
LOG(TYPE,4,TOP(TYPiT)  )  's'kIdTH 
L0g(TYPE/5,T0P( TYPE) )  =  CAT 


LOG( TYPE, 6, T  OP(TYPE) )  *  NXTCAT 
RETURN 


END  OF  Li. .2. 


OUTPUT  iitSSAUL  FUK  THOSE  PKOuLtMS  FOUND  In  PKhtfluUS  LINE 


TUT  NOT 


46 

C 

REPEATED  IN 

THIS  LINE. 

* 

47 

C 

4  6 

500 

TYPE  = 

0  A  P 

S 

49 

50  1 

Loop  = 

1 

50 

510 

IF (LOOP 

. NT .  TOP(TYPL) )  oO lo  oOU 

51 

If*  (LOu(TYPE#4/LOOP)  •  vj  1  •  Li  uuTJ  j i> j 

% 

52 

OLDX  = 

Ih5(LU0VTYPc,3,LUuF,),1cS/ 

|l 

17-76  16. QoS 


LtOOTrt  =  XL1  h-OL  l)X 

OlOY  =  A.M>(LOo(  TYPt/3/  LOOP)  /MASO 

LUOt TYPE / 1 /LOOP)  «  IRS  (LOG  (T  Y P E / 1 / Lo OP ) / 1 6 ) 

1  £  (LEu  oTH  .  u  T  .  t ) _  _ 

»  Jk  if  E  (  6/~5G5)  "ChA  K  (TYPE)/  ( "i  o  o  (  I  YP  t  /  K  /  L  OOP  )  / 
&  (LoG(TYPt/K/LOOP) / Ks  S /6 ) / 


of  LE NO TH /— LOG ( T Y PL / A / L OOP ) /  CLOY 

but. _ format  (/2X/ aq/1  oetween  ficlos  '/Zip/*  caT/.nxtc  at  =  »  ,i  io/ 

i  '  LENGTH  OF  E  A  K  On  =  '  /  1  o  /  '  MAX  *IoTh  ='/i5/'  Y  a  T  A  K  T  =’/I6) 
l)0  :j20  I-1/O 

520  L0o( TYPE/ I/LOOP)  =  LOG C T Y P t/ i / ToP ( T Y PE ) ) 

TOP(TYPE)  =  T0P(TYPE)-1 


l f  (  T  OP  (  T  Y  PE )  .to.  U)  GuTO  oOG 
G  0  T  o  blO 


LOO  C TYPt/A,LOOP) 


LOOP  =  LOOP+1 
GOTO  510 


-  L  0  o  ( TYPl /A /uOOP) 


IF  (TYPE  .  EG .  OJAoAP)  AETJRN 


TYPE  =  JVnLAP 

G 0  I G  501 _ 

JR  I Td<  6/301 ) 

FoRhAT (///'  ********  STACK  5  lie  EXCEEOEO  IN  GuoROOflNt') 


1 6.oeo 


- ] — 

2 

SUBROUTINE  f  ILL  (dEG*END#CAT*UMlJJE»olAS Y~5 

IMPLICIT  INTEGER  (A-Z) 

3 

4 

C 

COMMON  S  T  RT  (  1 000) # S TOP (1000)  ,  C  A I  N  UH  C  1  CXO  >  7  oTTTtftKD 

5 

6 

VALUE  =  ILS(UNIQUE*16>  ♦  CAT 

If  (END  .LT.  dEG)  GOTO  800 

7 

8 

FIRST  =  dEG  +1  -  BI  AS  Y 

LAST  =  E  NO  +1  -  blASY 

M 

9 

10 

891 

If(  LAST  .GT.  5000)  wR I TE ( 6/ 89 1 )  bE  0  ,  E  N  i>,  C  AT  ,  U  N 1  UU  E  ,  d  I  AS  Y 
FORMAT  (  '  EXCEEDED  YRANvjE.  d  EG#  E  N  D*  C  A  T /UN  I  UUE  t  d  1  AS  Y  =  *  ,  6  I  8  ) 

■% 

1  1 

1  2 

100 

DU  100  I=F1RST,LAST 

3TU)  =  VALUE 

1  3 

14 

C 

RE  1  URN 

1  5 

16 

C 

800 

UK  I  T  E  (  0/  8  01 )  dcu/END/CAT/UNi UUE 

1  7 

oOl 

FORMAT (///'* ***  ERROR  IN  FILL  -  dEG*ENDsCAT#UNlUUE=> *418) 

18  RETURN 


oja  o 


I 


-1 7-78 

1 6 ,0&  6 

1 

SOuriOUT  1  >4  E  S  0  K  T  (  C  N  T  ) 

2 

IMPLICIT  1NTEGE*  CA  ~i) 

3 

CO  he  UN  S  TKT  ( 1  000)  ,SI  OP  (1000)  ,C  A  To  on  <  1  U0G)  #01  (  SOOG) 

u 

C 

5 

Do  100  1  =  1  /(.NT-1 

6 

l-\  i  1.  =  S  T  k  T  ( I  ) 

f 

a 

at  G  =  1+1 

DO  90  J=3Eo»CNT 

9  IFCftliM  .LE.  ST*T(J))oGTu9G 

10  ,111m  =  ST  *T(J) 

1  1 

STkT (J  >=STKT  (  i) 

1  2 

S  T  k  T  (  I  )  =  M 1  I  \l 

1  3 

T=STOP (J ) 

1  U 

ST  Of-  (  J)  =  ST0P  (1) 

1  5 

SI GH( 1 )=T 

1  6 

T  =  CATNUM(J) 

1  7 

CA  TNUM  (J  )  =CATNUi1  (  1  ) 

16 

CATNUMCl)  =  T 

1  9 

90 

CONTINUE 

20 

100 

C  0  i»T  I  N  Uh 

21 

KtTUKN 

22 

END 

SUBROUTINE  PuSH(STRT/STO  . 
IMPLICIT  INTEUlR  (A-Z) 
COMMON  / S  T  K / S  T  A  C  K  (  4  /  1  07# TOP 


bOTO  5 


DATA  LIMIT/  TG/ 
TOP  =  TGP  +  1 


IT  (TOP  .bT.  Li.-iIT 
ST ACK( 1 / T  O  P / =  ST  A  T 


STACK(2/TGP)=STOP 
ST  AC  < ( T OP) =CAT 


STACK(4,TOP)=UNlUOE 

RETURN 


.JR1TE(6#301) 


FORMAT (//#' ****  STACK  OVERFLOW  ****♦*') 

STOP _ 

END 
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C.O  SPECIALIZATION  OF  THE  PSM  PPI  IMPLEMENTATION  TO  THE  RADAR  SYSTEM 


The  general  PPI  radar  simulation  model  described  in  Section  1.6  was 
specialized  for  a  specific  "real-world"  application.  The  application  selec¬ 
ted  used  a  PPI  radar  with  a  Correlatron*  in  a  terminal  guidance  configura¬ 
tion  for  a  ballistic  missile.  This  was  selected  as  a  quantitative  test 
of  the  PSM  because  simulation  results  were  to  be  tested  versus  actual  radar 
data  collected  over  the  target  site  by  the  same  radar  as  well  as  being 
simulated.  The  test  involved  specializing  the  PSM  for  the  guidance  radar 
parameters  and  scan  format,  building  a  data  base  of  a  specific  target  site, 
producing  simulations,  and  testing  these  simulations  by  using  the  Correla¬ 
tron  to  measure  the  two-dimensional  cross-correlation  between  them  and 
actual  radar  data  collected  over  the  same  site.  A  FORTRAN  listing  of  this 
specialization  is  presented  and  dicussed  in  Section  C.4 

C. 1  Correlatron 

The  Correlatron  is  an  electronic  device  which  externally  resembles 

a  television  camera  tube,  but  its  internal  construction  and  function  are 

quite  different®.  The  function  of  the  Correlatron  is  to  accept  two  voltage 

inputs  (Vs  and  VR)  and  determine  the  cross-correlation  (Ry  y  )  between  them. 

R  S 

This  is  shown  conceptually  in  Figure  Cl.  In  this  figure,  the  Correlatron 
is  shown  as  an  electronic  "black  box"  having  two  inputs  and  one  outout. 

One  of  the  inputs  is  shown  to  be  an  actual  radar  image  and  the  other  a  simu¬ 
lated  radar  image  produced  by  the  PSM. 


♦Correlatron  is  the  name  of  a  two-dimensional  cross -correlation  measuring 
device  manufactured  by  Goodyear  Aerospace. 

®Klass,  P.J.,  "Guidance  Device  Set  for  Pershing  Tests,"  Aviation  Meek 
and  Space  Technology,  12  May  1975. 
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The  video  output  voltage  (Vp(x,y,t))  of  the  radar  receiver  is  applied 
to  intensity  modulate  a  LED  (Light-Emitting  Diode)  corresponding  to  the 
signal  strength  of  the  target  echoes  recieved.  Quoting  from  Klass6,  "This 
beam  of  light  impinges  on  the  photo-cathode  to  generate  electrons,  which  in 
turn  are  caused  to  scan  by  the  Correlatron  deflection  system  so  as  to  'paint' 
the  equivalent  of  the  "real-world"  radar  display  on  the  storage  screen." 

Klass^  further  states  that  the  electrons  emitted  by  the  photo-cathode  "... 
are  then  attracted  to  a  dielectrically  coated  fine  wire  mesh  that  is  at  a 
positive  potential  so  that  the  image  is  stored  on  the  mesh  in  the  form  of 
many  different  electrical  charges.  Typically,  the  mesh  consists  of  500  to 
1,000  wires  per  inch,  but  up  to  2,000  per  inch  have  been  used  to  achieve 
extremely  high  resolution." 

Once  the  real  image  is  placed  on  the  storage  screen,  then  the  simulated 
radar  image  produced  via  the  PSM  is  projected  onto  the  photo-cathode  and 
the  resulting  pattern  of  electron  mission  is  deflected  to  correlate  it  with 
the  real-world  radar  image  on  the  storage  mesh.  In  Figure  Cl,  the  simulated 
radar  image  input  to  the  Correlatron  is  shown  as  a  video  voltage  (Vs(s,y)). 
This  is  conceptually  accurate  but  not  precise.  The  simulated  radar  image 
is  actually  provided  as  a  photograph  to  the  Correlatron  by  optically  project¬ 
ing  a  transparency  onto  a  photo-cathode.  The  electron  current  produced  by 
the  photo-cathode  then  produced  the  voltage,  V$. 

In  this  way  the  Correlatron  produces  the  cross -correlation  between 

actual  and  simulated  radar  images.  The  output  of  the  correlation,  R..  „  (x,y), 

VRVS 

is  illustrated  conceptually  in  Figure  Cl.  Guidance  information  is  derived 


^Klass,  P.J.,  "Guidance  Device  Set  for  Pershing  Tests,"  Aviation  Week 
and  Space  Technology,  12  May  1975. 
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from  the  X-  and  Y-offset  of  the  match  point  relative  to  the  absolute  coordi¬ 
nate  system  in  which  it  is  measured.  The  simulated  radar  image  is  said  to 
be  "good"  if  the  cross-correlation  peak,  the  match  point,  is  greater  than 
a  threshold  value. 

C.2  Specialization  Considerations 

The  first  step  in  specialization  of  the  PSM  to  model  the  terminal  guid¬ 
ance  system  was  to  attempt  to  describe  the  operating  parameters  of  the  PPI 
radar,  itself  ( i . e. ,  specification  of  the  simulation  parameters).  However, 
limited  information  about  the  operating  characteristics  of  both  the  radar 
and  Correlatron  was  available.  Therefore,  in  the  absence  of  system  design 
data,  the  guidance  simulation  software  was  developed  assuming  an  ideal  sys¬ 
tem.  For  instance,  the  PPI  radar  (for  simulation  purposes)  was  given  constant 
azimuthal  gain  between  its  3  dB  points  with  no  sidelobes  (an  aspiration  for 
any  antenna  designer!).  The  elevation  pattern  was  chosen  to  be  (esc  p)(cose), 
where  p  is  the  depression  angle.  Past  the  rf  portion,  the  receiver  of  the 
ideal  system  was  made  to  map  linearly  the  received  power  into  video  intensity. 
A  realistic  film  transfer  characteristic  was  employed  (logarithmic)  with  a 
linear  dynamic  range  of  20  dB.  Outside  this  range,  either  in  the  "toe"  or 
"shoulder"  of  the  exposure  curve,  lack  of  sufficient  exposure  or  saturation, 
respectively,  would  result. 

It  was  secondly  considered  whether  there  should  be  additional  modifica¬ 
tions  made  to  the  guidance  simulation  model  to  account  for  the  presence  of 
the  Correlatron.  The  Correlatron  was  assumed  to  have  identical  paths  for 
both  the  simulated  and  actual  video  voltages.  The  process  of  converting  a 
simulated  radar  scene  stored  on  photographic  film  to  a  video  signal  was 


assumed  to  be  linear.  Identical  tests  run  at  different  times  were  assumed 
to  result  in  the  same  degree  of  cross-correlation.  All  of  these  criteria 
were  assumed  for  the  Correlatron. 

C.3  Geometric  Considerations 

Complicating  the  situation  for  specializing  the  PSM  for  simulating  the 
guidance  system  was  the  fact  that  the  direction  of  approach  to  the  target 
was  not  specified.  To  optimize  the  chances  of  high  correlation  and  to 
allow  the  simulated  radar  scenes  to  be  useful  for  any  radar  position  and 
angle  of  approach,  it  was  necessary  to  make  them  as  nearly  onmi-directional 
as  possible.  This  was  shown  to  dictate  a  nadir-looking  antenna  because  of 
the  angular  dependence  of  both  radar  shadow  and  the  backscattered  fields. 

The  only  information  about  the  system  available  before  either  constructing 
the  data  bases  or  the  simulated  radar  scenes  was:  (1)  the  simulated  scene 
altitude,  and  (2)  the  corresponding  diameter  of  each  simulated  image.  Thus, 
each  image  was  formed  with  the  radar  centered  over  the  site  and  looking 
radially  outward  as  though  its  trajectory  was,  at  least  momentarily,  vertical 
to  the  Earth. 

Figure  C2  illustrates  the  image  format  of  the  guidance  radar  being 
employed  in  comparison  with  an  ordinary  PPI  radar  scan  format.  Data  are 
recorded  by  the  guidance  radar  for  a  full  circular  sweep  of  the  scene 
instead  of  the  usual  sector  associated  with  PPI  radars.  The  ground  imaged 
by  the  radar  beam  is  within  an  angular  ring  bounded  at  the  near  range  by 
35°  (incidence  angle)  and  at  the  far  range  by  65°  with  the  scene  within  35° 
blanked  out,  creating  a  "hole"  in  the  image.  The  guidance  simulation  model 
does  not  produce  imagery  in  exactly  this  format  because  of:  (1)  the  likeli¬ 
hood  of  centering  and  angle-of-approach  errors,  and  (2)  the  use  of  the 
Correlatron  as  the  diagnostic  device. 
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Figure  C2.  Special  PPI  Image  Format. 
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The  direction  of  approach  of  the  missile  and  its  PPI  radar  and  the 
center  of  the  real  imagery,  being  unknown  before  forming  simulated  scenes, 
might  occur  any  place  within  a  circular  region  of  the  target  depending 
upon  ballistic  guidance  variables.  This  presented  a  formidable  problem 
for  the  simulation  software  because  the  simulated  scene  had  to  be  capable 
of  a  high-degree  of  cross-correlation  with  an  actual  image  centered  any¬ 
where  within  a  certain  tolerance  radius  of  the  target.  To  ascertain  that 
the  actual  video  data  would  fall  well  within  the  simulated  scene  at  the 
maximum  angle  of  approach  (measured  from  vertical)  an  allowance  was  made 
which  would  enlarge  the  simulated  scene  radius.  These  considerations 
dictated  that  the  simulated  image  boundary  extend  to  about  75°.  These  con¬ 
ditions  (uncertainty  of  approach  and  center  of  the  actual  PPI  video  signal) 
imposed  necessary  conditions  on  the  simulation  effort:  (1)  no  "holes" 
were  allowed  in  the  reference  scene  even  though  one  existed  in  the  real 
data;  (2)  the  simulated  scene  must  be  larger  than  the  actual  PPI  scene  to 
accommodate  "centering"  errors;  (3)  angles  of  incidence  of  the  actual  data 
were  in  the  range  35°  to  65°,  meaning  all  of  the  simulated  scene  should  also 
be  in  that  range  even  though  the  actual  geometry  of  the  reference  scene 
would  decree  a  range  from  0°  to  approximately  75°. 

The  difficulties  caused  by  look-direction  errors  could  be  of  severe 
magnitude.  If  the  PPI  radar  approaches  the  target  off  course,  then  look- 
direction  errors  between  real  and  simulated  scenes  between  0°  and  180° 
occur.  Look-direction  effects  are  most  significant  in  ground  scenes  having 
considerable  local  relief  because  the  direction  and  length  of  shadows  (and 
layover)  in  radar  images  are  determined  by  the  look  direction.  Figure  C3 
illustrates  the  problem  for  a  look-direction  error  of  180°  between  the  real 
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and  simulated  radar  image.  Test  sites  having  significant  local  relief 
variation  would  appear  very  different  depending  upon  the  direction  of 
approach  of  the  real  PPI  radar.  Fortunately,  the  test  site  used  in  this 
work  had  only  a  modest  amount  of  local  relief,  so  this  is  one  problem  which 
was  not  tackled.  But  it  certainly  warrants  attention  if  a  test  site  hav¬ 
ing  a  considerable  amount  of  local  relief  is  selected  at  some  point  in  the 
future. 

Other  aspects  of  the  direction  problem  were  treated  and  their  impacts 
minimized  in  the  software  implementation  of  the  simulation  model.  As  should 
be  obvious  from  Figure  C3,  as  the  look  direction  changes  so  also  does  the 
incidence  angle  change.  As  is  well  known,  ground  radar  return  data  (a0) 
for  the  same  target  varies  by  many  decibels  over  the  range  0°  to  75°  inci¬ 
dence  angle.  For  this  reason,  the  reference  scene  simulation  software  could 
not  be  set  up  to  produce  a  simulated  image  according  to  the  actual  geometry 
of  the  problem.  If  this  were  done,  even  if  the  65°  circle  shown  in  Figure 
C3  happened  to  fall  always  on  the  same  category  and  thus  would  be  a  constant 
shade  of  grey  in  the  real  image,  the  same  65°  circle  would  trace  out  a  path 
on  the  simulated  image  which  could  conceivably  vary  from  black  to  white. 

In  the  range  of  incidence  angles  in  the  real  image,  35°  to  65°,  most 
radar  ground  return  curves  are  relatively  smooth  and  have  relatively  shallow 
slopes  (nothing  factual  or  quantitative  implied  here,  this  is  a  qualitative 
argument).  The  antenna  function  in  the  range  direction  (look-direction) 
over  this  same  range  of  incidence  angles  tends  to  compensate  for  the  slope 
of  the  o°  data,  producing  for  a  number  of  ground  return  categories  a  rela¬ 
tively  uniform  return,  thereby  minimizing  the  problem  caused  by  different 
look-directions.  For  these  reasons  it  was  decided  that  the  minimum  angle 
of  incidence  in  the  simulated  scene  would  be  35°  and  the  maximum  would  be 
75°.  The  area  in  the  scene  lying  between  35°  and  75°  angle  of  incidence 


was  simulated  normally.  The  area  lying  within  the  35°  circle  was  simulated 
as  though  the  angle  of  incidence  was  a  constant  35°.  This  solution  did  not 
attempt  to  model  the  real  situation  exactly,  but  rather  did  attempt  to  mini¬ 
mize  discrepancies  between  the  simulated  scene  and  the  actual  data  produced 
in  flight.  This  is  not  to  say  that  local  slope  variations  were  not  accounted 
for;  they  were  indeed,  incorporated.  What  is  meant  is  that  the  incidence 
angle  (e)  between  the  antenna  "boresight"  and  the  local  vertical  was  always 
in  the  range  35°  to  75°.  Local  slope  variations  then  correctly  altered 
the  incidence  angle  to  the  local  incidence  angle  (e£).  In  fact,  the  limita¬ 
tions  imposed  on  mimimum  values  of  come  strictly  from  the  local  relief 
in  the  scene. 

This  solution  to  the  angle  of  incidence  problem  created  data  handling 
problems  for  the  computer  program,  and  data  base  problems.  For  instance, 

35°  angle  of  incidence  specifies  a  resolution  cell  size  for  short-pulse  and 
narrow- beamwidth  radars.  Yet,  the  geometry  of  the  data  base  indicates  that 
as  data  base  cells  get  closer  to  the  center  (in  polar  coordinates),  they  get 
larger  in  the  range  direction  and  smaller  in  the  azimuth  direction.  This 
problem  was  minimized  by  accurately  modeling  another  feature  of  the  real  PPI; 
it  recorded  data  in  ground  range  mode.  Ground  range  mode  means  that  (for  a 
flat  Earth)  equal  size  objects  located  in  the  near  and  far  range  will  have 
equal  sizes  in  the  image  format.  This  is  normally  accomplished  by  applying 
a  nonlinear  sweep  to  the  electron  beam  of  the  viewing  CRT  (Cathode  Ray 
Tube).  But  for  simulation  purposes,  it  simply  meant  building  the  simulation 
data  base  with  equal  size  cells  in  the  range  direction.  It  should  be  noted 
at  this  time  that  in  the  presence  of  terrain  having  significant  relief, 
ground  range  mode  introduces  large  distortions,  a  fact  to  keep  in  mind  for 
such  future  sites. 
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In  summary,  the  general  PSM  radar  image  simulation  model  was  specialized 
to  the  special  requirements  summarized  in  Table  Cl  which  were  imposed  to  simu¬ 
late  scenes  for  use  on  the  Correlatron.  A  FORTRAN  software  listing  of  the 
implementation  of  the  simulation  model  is  presented  in  the  following  section. 

C.4  FORTRAN  Listing  of  PPI  Computer  Programs 

The  computer  programs  for  the  guidance  PPI  are  provided  in  the  following 
three  sections: 

C.4.1  Polar  Conversion 

A.  Polar  Create 

B.  Polar  Array 

C.  Array  Fix 

C.4. 2  Reference  Scene 

A.  Power 

B.  Greytone 

C.4. 3  Rectangular  Conversion 

A.  Rectangular  Create 

B.  Rectangular  Array 
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TABLE  Cl 


GUIDANCE  IMPLEMENTATION  SPECIAL  FEATURES 


!  (1)  360°  PPI  image  scan  format 

i  (2)  Simulated  area  was  larger  than  the  real  image  to  allow  "centering" 
;  errors 

i 

|  (3)  No  holes  allowed,  the  reference  scene  was  completely  filled-in 
with  radar  image  simulations 

: 

!  (4)  Minimum  angle  of  incidence  =  35° 

Q 

i  (5)  Maximum  angle  of  incidence  =  65 

(6)  Local  angle  of  incidence  was  properly  treated 

(7)  In  the  reference  scene,  the  area  between  0°  and  35°  was  simulated 
at  a  constant  35°  angle  of  incidence 

(8)  The  area  between  35°  and  75°  was  simulated  normally 

(9)  Variations  due  to  angle  of  incidence  difference  between  real  and 
simulated  image  were  minimized 

(10)  Simulated  scenes  were  formed  in  the  ground  range  mode 

(11)  Layover  and  shadow  were  properly  included 

(12)  Local  slope  variations  in  the  terrain  were  properly  included 
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This  computer  program  was  written  in  FORTRAN  for  implementation 
Honeywell  66/60.  It  consists  of  three  subprograms: 


(A)  Polar  Create 

Page 

197 

(B)  Polar  Array 

203 

(C)  Array  Fix 

207 

■ 


C.4.2  Reference  Scene  Computer  Program 

This  computer  program  was  written  in  FORTRAN  for  implementation  on  a 
Honeywell  66/60.  It  consists  of  two  subprograms: 

Pd  Q6 

(A)  Power 

(B)  Grey tone  217 


C.4.3  Rectangular  Conversion  Computer  Program 

This  computer  program  was  written  in  FORTRAN  for  implementation  on  a 
Honeywell  66/60.  It  consists  of  two  subprograms: 

(A)  Rectangular  Create 

(B)  Rectangular  Array 
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f 


13-78  00.301 


POLAR  CREATE 


POLTHT  CREATE 


THIS  PROGRAM  ACCEPTS  DATA  POINTS  (RECTANGULAR  FORMAT)  FOR"  INPUT 
AND  CREATES  THE  RESOLUTION  CELL  SIZE  MATRIX  IN  POLAR  COORDINATES 
TO'  BE  USED  AS  DAT  A  BASE”  F  OR  TWT  S  EMUL  ATI  ON  PROGF  ATT  ~ 


IMPLICIT  INTEGER  (A-Y) 

REAL  ARC  OS, El  OAT 

DIMENSION  PRI0R(16,16),ReC0RD(3000),TAfcLE(  1000),0T(4,3G0) 

D  AT  A  H  AL~E',"S"TRT7T),T7 -  - - - - 

DATA  CNT ,  N  0  M  3  /  1 ,0/ 

oata  o cts, Oct 2/OTOTTOOTJOOOC  701  00  7  .  . . ~~ 

DATA  NUMC AT/HOLEFIX  /16,5C/ 

"D  ATA  "MSTTC  A  T  70777  - 

"WRITE  (  677) 

FORMAT  (20X,  ’ PRIORI TY  MATRIX  FOR  CATEGORIES') 

WRI  TE  (  02~)'F)UM  C  A T, hOlEE  I  X 7M S  KC  AT  ~  . . 

DO  95  T=1,NUMCAT 

READ ( 0  5/ 5 )  (PRIOR (I, J) , J  S1,NUMCAT ) 

WRI  TE  (  02  )  (PR  I  OR  CTVJ  )  ,  J  -  TVnOiTC  AT  ) 

WRITE( 6,5 )  ( PRIOR (  I,J ) ,J  =  1 , MUM  CAT  ) 

CONTINUE'  '  ' 

FORMAT  (16  13) 


77  C“* 


28  C 

“79  C  MTD'X  =  DISTANCE  TEFETT  EH OFT  L EFT  ETTgE~ “OT  DATA  EASE  TO  TARGET  EEHTTP - 

30  C  MIPY  =  DISTANCE  (FEET)  FROM  BOTTOM  EDGE  OF  DATA  BASF  TO  TARGET  CENTER 

~*”7T  ‘  C  R  AD  I U  S  =  RADIUS  (IN  FEET)  OF  S  I  .'TUL  A  TIUN  D~E  S  IP  ED'  <=*’ H1AI  Ol  I  DX,M  ID  77 - 

32  C  CELSIZ  =  SIZE  (IN  FEET)  REPRESENTED  BY  DATA  POINTS  -  ASS  U  IE  D  SQUARE 

—  33  C  N  U  M  PT'  H  U  MB'E  R‘  0  T'  DA  T  POT  NTS'PT  R  "ftt  C  C  TP  HBTTTNTPlJ  T  TAP  E  '  -  - 

34  C  NUMREC  =  NUMBER  OF  RECORDS  ON  INPUT  TAPE 

15  O  EACH  RECORD  GOES  EROW  SOUTH “T'0"“N0RTH“  RECOWS  'ON  TATE  IN - 

36  C  A  WEST  TO  EAST  ORDER 

JT  C  WIDTH"-  FIXED  SIZE  FOR  RANGE  RESOLUTION'  ‘  -  "  ....  - - 

38  C  ZBMWD  =  BEAMWIDTH  (IN  RADIANS) 

40  C 

4T  "O  '  INPUT  F  OR"  PTC  KW  I  C'K  "6  M*1 L  l  “R'A  D  1  US  (7 77/77) 

42  C  31690  31690  291  56  20  i1o<v  3169  1  00  8000  .00875  .25 

44  C  INPUT  FOR  PICKWICK  32000  FT  ALTITUDE  (11/29/77) 

'4  5  C  1  26,280'  1  21,934  5831  2  8  2  2980  "27  32  '32?.  1 6001)  C08 75  .25 

46  C 

47  C  *  '•*#****' ***  **  MOD  I  F  I  C  AT  I  ON  *  * *** ******  *  *  *  T1D7  1 4  /76) 

43  C 


•  49  C  ONE  HAS  THE  OPTION  TO  MAKE  RANGE"  RE  S'OLUT  I  CTfi  FIXED 

50  C  LET  WIDTH  =  DESIRED  RESOLUTION 


I 


07-1T-78  09.801 


POLAR  CRF  A  f  £ 


(FACTOR  OF  E-06  ASSUMED 
BE  BETWEEN  .1  AND  2.) 


-  SO  INPUT  PARAMETER  WILL  LIKELY 


57 

58 

C  31690  31690  26400  20  3169  3169  0  4000  .0175  .25 

C 

59 

60 

C 

R  EAD (0  5, 1 0)  M  IDX,MI DY,RADIUS*CELS IZ, N UMP T , NUM R E C ,W IDTH, ALT 

61 

62 

10 

R  EA  D ( 0  5,  1  1)  ZbMWD,ZPULS 

F  ORMAT (8 I V) 

63 

64 

1  1 
C 

FORMAT (2F 10. 6) 

65 

66 

21 

WRITE! 6, 21) 

FORMAT!//, 30 X,' INPUT  PARAMETERS') 

67 

68 

WR I T  E ( 6, 2  2)  MIDX,MIDY, RADIUS, CELSIZ,NUMPT, NUMR EC* 

&  WIDTH, ALT, ZBMWO,ZPULS 

69 

70 

22 

FORMAT ( '  X , Y  DIST  TO  TARGET  C E N T E R ' , 2 I 1 0 , / / , '  SIMULATION* 

8  *  RADIUS', 110,//,'  DATABASE  RESOLUTION  ',18,//,'  NUMBER  OF' 

71 

72 

&  "POINTS  PER  RECORD  AND  H  OF  R  E  C  CRD  S  '  ,  2  1 8 ,  /  /  ,  '  RANGE  r 

&  '  RESOLUTION  AND  ALTITUDE  ',2110,//,'  BEAMWIDTM  AND  ' 

73 

74 

C 

&  '  PULSE  WIDTH  '  ,2F1 2. 7) 

75 

76 

C 

C  QUARTER  =  FLAG  TO  DO  ONLY  ONE  QUADRANT  OF  DATA  BASE  >0  YES 

7  7 

78 

C 

C 

<=0  DO  FULL  360 

79 

80 

15 

READ(05,15)  QUARTER 

FORMAT (12) 

81 

82 

C 

A  L  T  2  =  ALT*ALT 

83 

84 

C 

C 

85 

86 

C  NUMR  -  MAXIMUM  NUMBER  OF  CELLS  IN  RANGE  DIRECTION  IN 

C  RESOLUTION  CELL  MATRIX  BEING  CONSTRUCTED 

87 

88 

C 

I F ( M I D  X  .GT.  RADIUS  .AND.  MIDY  .GT.  RADIUS)  GOTO  80 

89 

90 

62 

WRITE (6,6  2)  RAD  I  US, MI DX,MIDY 

FORMAT (’  WARNING  -  DATA  BASE  TOO  SMALL  FOR  DESIRED 

91 

92 

&  SCENE,  LARGEST  CIRCLE  POSSIBLE  WILL  BE  SIMULATED',//, 

A  ’  INPUT  PARAMETERS  WERE  RADIUS, MIDX,MIDY=' , 3 I 8 ) 

93 

94 

C 

I F ( M I D  X  .LT.  RADIUS)  RADIUS  =  MI  OX 

95 

96 

C 

IF (MIDY  .LT.  RADIUS)  RADIUS  =  MIDY 

97 

98 

30 

IF (WIDTH  .EQ.  0)  GOTO  85 

NUMR  =  RADIUS/WIDTH 

99 

1  CO 

ZCW  =  FLOAT (CELSIZ)/FLOAT (WIDTH) 

GOTO  86 

1  01 

102 

85 

ZCTAU  =  9K3.S7*ZPULS/2. 

MXSR  =  SQRT(RACIUS**2  +  ALT**2) 

1  03 

104 

C 

NUMR  =  FLOAT (MXSR  -  ALT)/ZCTAU 

190 


T3-73  09r3O1 


POLAR  CREATE 


"10  5 

106 

107 

108 

109 

110 
111 
112 
TT3 

1  14 
~  115 
116 
1  1  7 
118 

~T1  9  ““ 
1  20 

121  ~ 
1  22 
“123 
1  24 
1  25 
1  26 
12  7” 
128 

129  _ 

1  30 
131 
1  32 

133  “ 

1  34 
135 
1  36 
1  37 
1  33 
1  39 

140 

141 
1  42 
143 
1  44 
145 
1  46 

147 

148 

149 

150 
T51 
1  52 
153 
1  54 
1  55 
1  56 


C  NUM A'NG  -  NUMRER  OF  ANGLE  GINS  TO  JF  CREATED  IN  FFSOLUTION 
C  CELL  MATRIX 

C 

86  N90  =  1.57/ZbMWD  ♦  1 

N 1  8  C  =  N  9C  *  2  ♦  1 
NUMANG  =  N9P  *  4 

I F  C NUMANG  ’  .  GT .  720)  GOTO’ 815 
C 

C  X  AND  Y  COORDINATES  OF  CENTER  OF  DATA  BASE 
C 

CENTRX  =  MI  DX /C  ELS  I  Z 
CENTRY  =  MIOY/CELSIZ 

c  “  "  . . .  ' 

C  RAO  -  NUMBER  OF  OATA  CELLS  FROM  CENTER  TO  EDGE  OF 
C  SI  M U LA  T  I CN  A R  FA 

C 

R AO  = "RTOTU S/CELS  I Z 

WRITE (0*73)  NUMK,NUMANG»CFNTRX,CENTR Y ,RAD 
73 _  F0RMATC7/'  INITIAL  ’PA'RAMETERi  '/5I8//3 

IFCRAO  ,6T.  CENTRX  .OP.  RAO  .GT.  CENTRY)  GOTO  810 
C 

C  TABLE  =  TABLE  LOOK  UP  FOR  ANGLE 

c  u  s’E”TTrotr  ttmes  cosine  of  angle  as  index 

C  RESULT  IS  PROPER  ANGLE  BIN  FOR  THE  POINT 

C 

00  100  1=1 #1000 

1  CTO  T  ABLE  (  I)  =  ARC'OSC  FLOAT  (  I )  /  1  000  .)  /  Z.)MWt>  +  1~ 

c  __  _  _ 

c  write  parameters  to  tape  for  data  to  next  step 
c 

W  R  IT  F  (  n? )  Ntffl  R7  N  U  M  A  NC#  R  A  0  I  U  S  #  w  I  0  T  H  #  ’VTC  ,  A  L  T  7  Z  CT  A  U'"  ~ 

C 
C 

C  BEGIN  -  FIRST  LINE  OF  DATA  BASE  TO  )E  USED  IN  THIS 
C'“  SIMULATION 

C  IN  CASE  ONE  WISHES  TO  SIMULATE  ONLY  *  SEGMENT  OF. THE 
C  ENTIRE  DATA  BASE  SO*E  LINES  OF  THE  ->A7A  BASF  WILL  BE 
C  UNUSED.  THIS  LOOP  POSITIONS  THE  UlLR  AT  THE  FIRS!  LINE 
C  OF  THE  INPUT  WHICH  IS  TO  BE  US  b  D 
C 

BEGIN  ~  C  ETfTR  X  -  RAD 
ENDREC  =  CENTRX  +■  RAD  +10 
IFCbEGIN  .EO.  0)  GOTO  115 
DO  110  I  =  1 #  BE  G I N 
110  READ  <01  >’ 

1  1  5  BEGIN  =  8EGIN  +  1 

WRITE  <6767)  BEGIN 
67  FORMAT ( '  BEGIN  ='/I5//> 

C 
C 
C 

DO  200  1 =bEG I N, ENDREC 


19S 


07-13-78  09. 

801 

POLAR  CREATE 

157 

1  58 

C 

C  READ 

IN  NEW  LINE  OF  INPUT 

1  59 

160 

C 

READ (01, END =800)  (RECORD (N),N=1 , NOKPT) 

161 

162 

C 

C  NX  - 

DISTANCE  (IN  NUMBER  OF  CELLS)  IN  X  DIRECTION  FROM 

1  63 

164 

C  THE 

C 

CENTER  TO  THE  CURRENT  LINE  OF  INPUT 

* 

165 

1  66 

NX  =  I-CENTRX 

I F (  NX  .EG.  0)  NX  =  1 

• 

1  67 

1  68 

I F ( N  X  . G  E .  0)  HALF  =  1 

I F ( N  X  .GE.  0  .AND.  OT F  .EQ.  0)  GOTO  600 

169 

1  70 

105 

IF (QUARTER  .GT.  0  .AND.  NX  .GE.  0)  GOTO  500 

I F ( N  X  .GT.  CENT  R  X )  GOTO  500 

171 

1  72 

N X 2  =  NX  *  NX 

ZX  =  ABS(NX) 

L  INE 
AND 


POINT 
fc  CELL 


THROUGH  THIS  LOOP  PROCESSES  TWO  POI 
—  THE  ONE  J  CELLS  ABOVE  THE  CENTER  LINE 
THE  ONE  l  CELLS  BELOW  THE  CENTER  LINE 


T  C  A  T  =  0 
BCAT=0 
0LDR=0 


DO  180  JJ=1,RAD+1 
J  =  JJ-1 

I  F  (  QUARTER  .GT.  0" 

NY2  =  J^J  _ 

Z  R  =  SORT (NX 2  +NY2) 


A' N  D  .  j  .  G  f  .  I  A  B  S  (NX  )>  GOT  6  M" 


DISTANCE  (IN  NUM8ER  OF  CELLS)  FROM  CENTER  POINT  TO 
THE  CURRENT  POINT 


I  F  (  W  I  D  T  H _ .EG  _0 )  G  O  T  0_1 1  3 _ 

R  =  Z  R  *  Z  C  W  +“  1  . 

GOTO  313 

SR  *  SORT  (ALT  2  +  (  Z  R*  C  ELS~IZ  >  **  2 ) 
I  F  (  S  R  .LT.  0)  GOTO  180 


R  =  SR/ZCTAU  +  1. 


200 

313  I F ( R  .GT.  NUOR)  GOTO  200 

201 

COSANG  =  ZX/ZR  *  1000. 

I  F(COSANG  .LT.  0)  WRITE(6#69)  COS  ANG  / I /  N  X  /  J / R 
IF(COSANG  .GT.  1000)  WRITE(6*69)  COSANG  /  I/NX/J/R 


F  ORMA  T (/ / '  *  *  E  R  ROR  -  COS  >  1',5I8/) 

JLL<CO$  ANG  .6  T .  10  .AND.  COSANG  .L  T .  990)  GOTO  117 
ANG=  ARCOS(ZX/ZR)  /  ZBMW'D  +1 
GOTO  118 
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09.301 


POLAR  CREATE 


237 


70? 

C 

"" 

- 

7i  n 

C  ANG 

-  APPROPRIATE 

ANGLE  BIN  FOR  THE  CJRRENT  FOI 

N  f 

711 

C 

"  '  - - 

212 

1  1  7 

ANG  =  TABLE(CCSANG) 

2  1  3 

C 

214 

C  H  AL  F  =  1  IMPLIES 

RIGHT  HALF  OF  THE  SCENE  IS  BEING  PROCESSED 

215 

C  SO 

THE  VARIABLE 

ATJG  IS  MODIFIED  APPROPRIATELY 

"  *  ~  * 

216 

C 

717” 

1 1  3 

C  ONT  INUE 

218 

C 

219 

120 

INDEX  = 

CENTRY  +  J 

720 

I  FIOL  DR 

.NE. 

R  .OR.  OLD.ANG  . NE .  ANG)  GOTO 

152 

221 

CNT  =  CNT  ♦ 

1 

*  ” 

222 

CAT  =  AND( RECORD( INDEX) ,  M  S  K  C  A  T  ) 

2  23 

I  F (C AT 

.GT. 

NUMCAT)  GOTO  o^O 

224 

I  F  (  T  C  A  T 

.  EG. 

0  .AND.  CAT  .gT.  C)  7CAT-CAT 

7  25 

. 

I  F  (CAT 

.ITT . 

0  )  TC  A T  =  Pp  I OR  I T C  AT  ,' "C  A T ) 

—  _  - —  • 

276 

telv  = 

TELV 

+  IRL(£CCORO( INDEX), 6) 

227 

C 

..... 

228 

INDEX  = 

CENTRY  -  J 

2  29 

C  AT  =  A  N  D  <  R  E  C  0  R  C  ( IND EX), MS  K CAT) 

..  ..  .. 

230 

I  F  (  CAT 

.GT. 

N'JMCAT)  GOTO  3  20 

231 

I  F  CP  C  A  T 

.  EQ. 

,0  .AND.  CAT  .  GT  .  ~C)  -  SCAT  =  C  AT 

7  32 

I  F  (CAT 

.GT. 

0)  UCA  T  =  PR  IOR  (  UC  AT  ,  C  A  T) 

233 

BELV  = 

BELV 

irl(REC0rd(  Index  ),6) 

234 

GOTO  180 

235 

c 

2  36 

c 

150 


IF  COLOR  -.10 .""I))  GOTO  138 


253 

TELV  =  TELV /CNT  * 

0  C  T  2  +  TCAT 

739 

3ELV  =  8ELV/CNT  *' 

OCT  2  +  6  CAT 

—  ‘  —  -  —  ‘ 

240 

NUMb=NUMB+1 

241 

... 

0T(1 ,NUMB)=OLDR- 

...  -  -  -  -  -  - 

.  . . 

242 

0  T  (  2  ,  MJM  B  )  =0  L  D  A  NG 

243 

0T(3,NUMB)=TELV 

— 

244 

0T(4,NUMB)=BELV 

245 

OLDR  =  R 

- - - 

246 

OLDANG  =  ANG 

24  7 

1  F (NUMB  .LT.  250) 

GOT)  1 5T 

2  43 

«JR  I  T  E  (  02)  NUMB 

249 

WRITE  (02)  (  <OT(L,M)  l.=  f  ,4  J  ,M=1  ,  NLMo  > 

'  ' 

1  -  v  '  ' 

250 

NUMBED 

251 

157 

SUM  =  SUM  + 1 

252 

158 

TELV  =  I RL(RECORD( CENTRY  +J),6> 

353 

BELV  =  I RL(RECORD(CENTRY  -J),6) 

254 

T  C  AT  =  AND(RECORD(CENTRY  +  J ),MSk>CAT) 

2  55 

SCAT  =  AND(RECORD(CENTRY-J ),MSNC  Vf) 

256 

TOTCiJT  =  TCTCNT  + 

CNT 

257 

CNT  =  1 

258 

C 

259 

OLOR  =R 

260 

OLDANG=ANG 

201 


1 
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POLAR  CREATE 

261 

180 

CONTINUE 

262 

_  200 _ 

CONTINUE  ! 

263 

GOTO  90C 

2  64 

C 

i 

ERROR  MESSAGES 


268 

800 

WRITE (6,801 ) 

I 

< 

269 

270 

801 

FORMAT*//  ' 
GOTO  900 

UNEXPECTED  END  OF  FILE  AT 

RECORD  *,I 

6) 

271  810 

272  811 

WRITE* 6, 811  ) 
FORMAT (// ,* 

RADIUS, MIDX,MIDY 
***ERROR  RADIUS  EXCEEDS 

DATA  BASE 

WRITE ( 6#  8 1 6 )  NUMR, RADIUS, WIDTH 
F  ORM A  T ( / / , '  *  ■**  E  RR  OR  -  SIZE  EXCEEDS  DIMENSIONS  OF  ARRAY 


8 


WRITE(6,821)CAT,I,J 
FORMAT*//, 5H*****, 'CAT  OUT  OF  RANGE.  CAT,I,J 


GOTO  900 


WRITE  OUT  DATA  BASE  MATRIX  FOR 
VERIFICATION 


WR I TE  <  02 )  NUMP 
WRITE*  02)  <(OT(L,M),  L  =  1 ,4 ) , M= 1 ,NUM3  ) 

ENDFILE(02) 

NUMB  =  0 


291 

292 

500 

GOTO  105 

CONTINUE 

• 

293 

294 

900 

WRITE* 02)  NUMB 

WRITE*0?>  *  *01 *L,M>,  L  =  1 ,4 ),M=1 ,NUM8) 

1 

• 

295 

296 

901 

WRITE *6,901 )  SUM,TOTCNT 

FORMAT (10X,'***D0NE***',I8,*  RECORDS  WRITTEN', 

297 

298 

&  i0X,I8,*  POINTS  PROCESSED') 

STOP 

299 

END 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

17 
13 
1  4 

~T5~ 

16 

T7 

18 

19 

20 
21 
22 

23 

24 

25 

26 
2? 
26 

- 29 

30 

...  ^ 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
46 

49 

50 

51 

52 


09. 305 

C 

C 


POLAR  ARRAY 


POLAR  ARRAY 


412 


PART  TWO  Of  DATA  BASE  CREATION 
IMPLICIT  INTEGER  (A-Y) 

DIMENSION  A(357,1fe1 )  ,  P  R  I  0  R v  1  6 , 1  6  )  ,  D  A  T (4,300) 
DIMENSION  07(357 >,C1 (357,31) ,02  (  3  57,11  ) 

DATA  MSKCAT  7077/ 

D  AT  A  0  CY~2  ,  SH  I  F r  Tc  t  R /  O'l  0 0 , 01  0 0 0 C 0 , 0 1  0 OOTTO 0 0 000  / 


0  T  F  =  0  -  - 

READ(OI)  TJUMCAT  ,KOLEF  IX, MSKCAT  * 

WRITE(02)NUM CAT, H0LEF1X, MSKCAT 
DO  412  1=1,NUMC AT 
READ(01)(PRI0R(I,J)#J=1,NUMCAT) 

R  EAD (0  1)  NUMK,NJMANG,KADI US, w I  0  T H ,N9 0 , AL T , ZC  T  AO 
WR  I  T  E  (  02  )  NUMR,  JUMAUG,  RAD  I  uS,Wl  )TI.,ALT  ,ZCT  A  j 


150 


- I 


- 


200 


READ (01 »  E HP* 5 00)  NUMB 

READ  (01)  ( TD  ATT  L , Fi I  , L  =  1 , 4  )  ,/i  =  T,  NUMu) 


DO  200  I=1,NUMd 
R  =  D  A  T ( 1  ,1) 

ANG  =  DAT <2,  I) 

CAT1=AND( DAT ( 3, 1), MSKCAT) 
ELVTsl KLTb  AT (3/1  J>  5T 
CAT2=AND(DAT (4, I), MSKCAT) 

E  L  V2  =  I  RL  ( DAT  T4,IJ,6) 

A  (R, ANG) =ELV 1 *SHI FT  +  ELV2 
WORD= ANG /6  ♦  T 
13  IT  s  MOD  (ANG, 6)  *o 
TAG 


+  CTR  +  A ( R , A  N  G ) 


FLDCDIT ,6, Cl (R,WORD) ) 

1  F  (  C  A  T  1  .EQ.  0)  GOTO  150 

I  F  (  T  AG  .EQ.  0)  FLO  (BIT, 6, Cl ( R, WO  R  D ) ) =CAT1  '  * 

IF  (TAG  .  E  U.  0)  GOTO  150 

i f  ( p r ior ( tag,t:a ti  )  . e or.  c a ti  5  f l d t bit ,t,ci  (r, wor dt)  =  c a tt 

TAG  s  FLD(BIT,b,C2 (R,WORD) ) 

IF  (CAT  2  .EC.  0)  GOTO  200  *  . ~  “  “  - - - 

I  F ( T  A  G  . E  U •  0)  FLP(3IT,6,C2(R,WJRI))*CAT2 

IF  (TAG  .EQ.  0)  GOTO  700 . '  *“ .  . 

IF (PRIOR (TAG,CaT2)  .EQ.  C  A  T  2  )  F LD ( B I T , 6* C 2 ( K , WOR D) )  =  C A T 2’ 
CONT  INUE 
GOTO  5 


READ(01, END  =  5  00 )  NUMB 

HEAD(OI)  l  (  DAT(  L/M  )  ,L  =  1 ,4  )  ,M  =  1  ,,'<UM6) 

DO  29?  I  s  1  , N U M [: 


203 


204 


ao  O  o r\j  fo  >o  s  oo  O  O  lir*  >0;f^ 

_  1  __  I : — .  f /*  .  /vi  /v.  I  /vi  rvi  f /vi  m  *  /vi 


R  E  U  I  iJ  D  (03) 

REWIND  (02) 

R  EAD (02)  NUMCAT/H01EF IX/MSKC AT 

READ (02)  NUMR/NUMANG/RADIUS/WIDTH/ALT/ZCTAU 

WRITE(OI)  NUMCAT/HOLE F IX/MSKCAT 

WRITE (01 )  NUMR/NUMANG/RADIUS/WIDTH/ALT/ZCTAU 

c 

DO  100  1=1/60 

READ(03)  IN 

WRITE(6/1 2)  IN 

1  2 

F  0RMAT  (1  2(1X07)) 

WRITE(OI)  IN 

100 

C 

CONTINUE 

DO  110  1=61/720 

READ(02)  IN 

110 

WRITE (01 )  IN 

CONTINUE 

C 

WRITE (6/1 0) 

10 

FORMAT  ('  WE  ARE  DONE  ' ) 

STOP 

END 
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A  RR  AY  F  IX 


- - H 


3 

4 

C 

C 

PURPOS 

E  1  S  TO 

PATCH  UP  HOLES  In  T 

HE 

CENTER 

5 

C 

OF  THE 

POLAR 

DATA  BASE  SO  EVERY  C 

ELL 

HAS 

6 

C 

DATA. 

HOLES 

WERE  CAUSED  IN  CONVE 

RSI 

ON  FROM 

7 

c 

CARTES 

IAN  TO 

POLAR  COORDINATES. 

HOL 

ES  WORKS 

3 

c 

ON  THE 

FIRST 

50  CELLS  IN  EACH  RAY 

RA 

DI ATING 

9 

1  0 
11 
12 
13 
1  A 

15 

16 
17 
IS 

19 

20 
TT 
22 
2T 

24 

25 

26 

27 

28 
29 

IT 


C 

C 

C 

C 

C 

"TT 

C 

c 


FROM  CENTER  OF  DATA  BASE. 


IMPLIC  IT  INTEGER  ( A-Y) 

REAL  FLOAT' 

DIMENSION  UUF(500> ,IN(720,50> 

DATA  0 C T27 I N TAP,OT  70T0U70TV02 f 

READ(  INTAP)  NUMCAT/HOLEFIX/MSiCLAT 

R £  A  DTI  NT  ATTN  UMR  ,~NlJ73AN  57  R  A  DTwTDTH  ,7L  T  ;7  C  T  AU - 

READ  IN'  BA  D'  D'ATA “1“  RAY  'AT  A  TIME  .  ' 

FILL  -IN”  ARR^AY  WITH  FIRST  50  POINTS  OF  DATA* 

“A  LL  T  HE  HO  LET  WTlITB  E  TOU  N  D  I  N  “T  HE  S  E  “FIRST  50“  PtS  , 
"IN"  HAS  THE  FIRST  50  PTS.  FOR  ALL  720  KAYS. 

"BU F"  IS  ONLY  A  BUFFER  TO  READ  IN  FROM  TAPE. - 


DO  100  I  =  1  *  N  U  MA  NG 

READ  (“I  NT  AT P,  END=  TOGO  TTBU F  (  j  ),  J  =  T  *  N  OMR  ) 
DO  90  J=1,H0LEFIX 
TFTCT*  JT=BTTF“(  JT 


34 

C 

HOLES  GET  FILLED  WITH  RESERVOIR  CAT. 

35 

36 

37 

38 

c 

C 

DO  23  RA  Y=1 ,720  -  -  . 

PRINT,'  POINTS  FOR  RAY  ' , R  A  Y 

39 

40 

23 

231 

PM  NT  231/(1N(RAY#CK)#CKs1*10j 

FORMAT (5X/10(06*3X)> 

41 

42 

4  3 
44 

C 

C 

DO  500  I  =  17 HOT. E F I X 

ME  L  V=0 

45 

46 

M  L IN  =  G 

C  NT  =  0 

47 

48 

D  I  F  =  0 

2  LOP  E  s0 

49 

50 

C 

DC  150  J=1,NUMANG 

51 

52 

NXT  =  J 

IF(IN(J,I)  .NE.  0 ) GOTO  160 

W~ 
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ARRAY  FIX 

53 

54 

1  50 

C  ONT 1N0E 

WRITE (6# 1 2) I 

55 

56 

5  7 

58 

12 

160 

FORMAT (*  NO  DATA  IN  LINE  ’/I4) 

6  0  TO  500 

L  AS  T  =  0 

REFELV=IN(NXT/I)/0CT2 

-  j 

59 

60 

C 

00  400  J=1/NUKANG 

•  ] 

61 

62 

CNT=CNT+1 

I  F  (  IN( J/  I  )  .NE.  0 ) GOT  0  350 

• 

63 

64 

I  F  (  L  A  S  T  .EU.  C)GOTO  180 

IFC(J-LAST)  .IT.  (NXT-J))GOTO  200 

65 

66 

1  80 

I  F  (  N  X  T  .GT.  NUMANGIGOTO  200 

C AT  =  F  LD( 3  0,6, IN (NXT/ I ) ) 

67 

63 

I  F  (CAT  .NE.  17) GOTO  1 90 

I  F  (LAS  T  .NE.  0) CAT=FLD (30/6/ IN (L AST, I ) ) 

69 

70 

1  90 

F  L  D  (  30  /6  /  IN ( J  / 1  ) )=CAT 

ELV  =  RE  FEL V  +  ZLOPE*CNT 

7 1 

7  2 

FLD(1?T/12/IN(J,I))=ELV 

I  F  (  J  .  EQ  .  1 ) G 0 TO  400 

73 

74 

DIF=IABS (ELV-FLD(1 8/1 2/INC J-1/I ) ) ) 

MELV=MAX (MELV/DIF) 

75 

76 

C 

GOTO  4  00 

77 

78 

200 

CAT=FLD(30/6/IN(LAST,I)) 

I  F ( C  A  T  .NE.  1 7 ) G  OT  0  210 

79 

80 

21  0 

I  F  (  N  X  T  .LE.  NUMANG) C AT  =  FLD (30/6/ IN(NXT  /  I  ) ) 

FLDC30/6/  INC J ,1  )  )  =  CAT 

81 

ELV=RE  FELV  +  ZLOPE*CNT 

82 

FLD(18/12/IN(J/1))=ELV 

83 

IFCJ  .  F.Q.  1>G0T0  400 

84 

DIF=IA6S (ELV-FLDC1 8/1 2/INC J-1/ I) >  > 

85 

MELV=MAX (MELV/DIF) 

86 

GOTO  400 

87 

C 

88 

350 

LAST=NXT 

39 

C  NT  =0 

90 

00  370  K=LAST+1 /NUMANG 

91 

NXT=K 

92 

IF(IN(K/I)  .NE.  0 ) GOTO  371 

93 

370 

CONTINUE 

94 

NXT  =  NUMANG+1 

95 

ZLOPE=0 

96 

REFELV=IN (LAST/IJ/0CT2 

97 

GOTO  400 

98 

371 

REFELV=IN(LAST,I)/0CT2 

99 

NUML=NXT-LAST 

1  00 

ZLOPE=FLOAT ( INC N XT/I) /0CT2  -  I N (L AST / I ) / OC T2 ) / FLO  AT ( N JML ) 

1  Cl 

MLIN=M4X (MLIN/NUML) 

102 

400 

C  ONT I NUE 

1  03 

C 

104 

- - - 

WRITE (6/6  0) I /ML  IN/MEL  7 
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ARRAY  FIX 


mtm  wi 


< 


1 


“  1TT5  ' 

106 

107 

108 

60 

500 

c  - 

c 

c 

c 

c 

FORMAT  RIFJG',,T3/~’  ML  IN  AMO  METV  *^216') 

CONTINUE 

1"09 

110 

~  111 

112 

WRIlE  PATCHED  DATABASE  TO  TAPE 

REHIND (INTAP) 

113 

READ Tl NT  A P) 

114 

READ ( INT A  P) 

1  15 

Wfi  I  TE  I  Ol  )  NUMft,N JMANG,RAD*W  I  D  T  H  *  AL  T  tl  CT  AUjNtJMCAT 

116 

c 

117 

DO  SCO  1  =  1  ,NU HANG 

118 

666 

R£AD(INTAP,END=10C1)(BUF(J),J=1 ,numr  > 

TIT 

DO  550  J=1*H0LEF!x 

120 

550 

3UF(J)=IN(I/J  ) 

1  21 

WRITE  COT1  (BUTCD  ,J=T,NUrTR) 

1  22 

IF  (MOD  (1*3)  .Ed.  1  )  WRITE  (6,70)  (3iJF(J  ),  J  =  1,  ICO) 

123 

70 

FORM ATT /  T5  T 1  X  #  0  6  )  ) . .  .  ' 

124 

600 

CCNT  I  NUE 

1  Z5 

GOTO  9  00T 

126 

1000 

CALL  FCLOSEC INTAP) 

127 

1  28 

1001 

6  01T)  6 

CALL  FCLOSEC INTAP) 

T29 

GOTO  666" 

1  30 

900 

STOP 

“1  31 

END 

4 

' 

------- 

-  -  ■  — 

. . .  -  - 

..... 

-  . -  -  - . .  ...  - 

209 


C.4.2  Reference  Scene  Computer  Program 

This  computer  program  was  written  in  FORTRAN  for  implementation  on  a 
Honeywell  66/60.  It  consists  of  two  subprograms: 

(A)  Power 

(B)  Grey tone 


I-'  "  C -  "  ~  "POWER  .  ■  "  '  ~  -  - 

2  C 

3  C  PROGRAM  ACCEPTS  DATA  MATRIX  IN  POLAR  COORDINATES  FROM 

A  C  FILECODE  01  (CREATED  BY  ARRAY  FIX)  AND  PRODUCES  A 

5  C  SIMULATION 


6 

7  ~ 

8 

C 

C 

IMPLICIT  INTEGER  (A-Y) 

9 

•  10 

REAL  FL0AT,SIN,C0S,ARCuS,RH5 

LOGICAL  TAG 

1  T 

12 
•  13 

1  A 

COMMON  /RANDOM/  I5EED 

COMMON  Z  T  AB ( 1  000),ZCF (16,A),ZS(16),LEN(A00),TAG 

COMMON  7107  BASE  C50C7  3)  /  C  A  T  (  A  00/  3 )  "  - 

COMMON  /OT/  GT(A00)/ZGT(A0J*3)»Z0T(A00)WSTRT(A00*2) 

1  5 

16 

C 

LOMMON  / P  Ak A  M /  NLIMR,NUMANG*RAD[U5»WIDTH*ZALT,ZCTAU*KLAPP*NUMCaY 

17 

1  8 

19 

C" 

DATA  l1#L2/L3/uTREF/1/2/3/3a/ 

DATA  0CT2/0100/ 

20 

ISEED  =  1231236907 

71“ 

22 

c 

KLAPP  =  0 

73 

2  A 

c 

READ(OI)  NUMR/NUMANG#  RAD IUS*  WIDTH /ALT / ZCTAU/NUMC  AT 

75 

■’  10 

FORMAT  (4 187  “  -  "  "  "  - 

26 

R  EAD (0  5/ 1 0)  ALT 

27 

28 

c 

ZALT=FLOAT (ALT) 

•  79 

c 

30  WRITE! 6# 1  1) 

•  ~3T  ‘  “  11"  F0RnATT//73OXVrTHTRD'0R"DEP  COEFFICIENTS  FOE  SIGMA  TIT" - 

32  C 

- 73"  ~~ - DO  TUO“  I=T7NUWC7U - — - 

3  A  R  E AD( 0  5* 1  5)  (  Z  C  F  ( I  ,  J  )  /  J  =  1  ,  A  ) 

- 73  .  ~ - W R I  TET6VT 3T  (  ZC  FTI7jr;'J=  1 YL7 - 

36  100  CONTINUE 

)  - 37  —  -  15"  ’  F  0RWHTT4E  T A .  7  )  - - - - “  ~  - - - 

38  C 

- 19 -  - REAOC05/2J  Z~S  - 

AO  2  FORMAT (1 0  (F6. 2)  ) 

-  AT  C  “LENGTH  OF  RESOLUTION  TELL"  I"N  "ATIMUTri  LNC  R  E  ASE S"“uT1Th  "RANGE - 

A2  C  THE  ARRAY  -  LEN  -  CONTAINS  THE  RESOLT  ION  CELL  LENGTH 

“AT "  ~  C (TIMES  2)  AT  EACH  RTffGE  BIN.  ""  USED"  TO  CA  ULULATE- LOCAL - - 

A  A _ _ C  ACROSS  TRACK  SLOPE _  _ 

A6  R  =  -WIDTH/2 

~r  AT  DO  TO  5  I  =  1 VNUMR 

A8  R  =  R  ♦  WIDTH 

“AT  10  5  ‘  LEN(I)=  3.TAT"6*A.  *R/ FLOAT (NUMANGT  +  1  . . 

50  C 

51  C  W ID  2  =  2  TIMES  WIDTH  OF  RESOLUTION  CELL  IN  TRACK  DIRECTION 
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09.813 

53 

C 

54 

55 

C 

56 

57 

58 

59 

60 

C 

61 

C 

62 

C  T 

63 

C 

64 

65 

66 

707 

67 

C 

68 

C 

69 

70 

110 

71 

c 

72 

73 

74 

75 

76 

120 

77 

C 

78 

79 

80 

81 

82 

23 

83 

84 

85 

.  _  86 

37 

205 

88 

89 

C 

90 

160 

91 

92 

40 

93 

161 

94 

C 

95 

96 

c 

97 

98 

99 

1  00 

1  01 

102 

c 

1C3 

104 

POWER 


WID2  s  WIDTH  ♦  WIDTH 

ZCOS35  =  C  0  S (  3  5 /  5  7 .295) 

I  S  I N  3  5  "»  S I N  (  3  5  .  /  5  7 . 2  o  5 ) 
GD35  =  ALT*ZSIN35/Z^COS35 
CEL35  =  GD3 57  WIDTH 


RANSFER  PARAMETERS  TO  TAPE  FOR  OUTPUT  ROUTINE 

WRITE  (0?)  NUMR,NUM ANG, RADI  US, WIDTH, ALT, ZCTAU 
WRITE! 6/707)  N  U  M  R  ,  N  U  M  A  N  G  ,  R  A  D  I  U  S  ,  W  l  D  T  H  ,  A  L  T  ' 

F  ORMAT ( '  NUMR,NUMANG,R ADI  US, WID  TH,AL  T=  * ,51 3) 


DO  110  1=1, 1 000 

ZTAB< I >=  ARCOS (FLOAT ( I )/1 000. ) 

CALL  NEXT (?,IEV) 

I  F  ( IE  V  .GT.  0)  GOTO  8  00 
DO  120  I  =  1_,  N  U  M  R 
8  AS  E ( 1,1 )=BASE( 1,2) 

CAT! 1,1) -CAT ( 1,2) 

DO  300  ANG  =  1  , NUMANG 
TAG=. FALSE. 

^^(MOD  (ANG_,3P  )  .J<*.  0)  TAG=.TRUE. 

IF  (TAG)  WR  I  T  E  !  6 ,23  )  ANG 

FORMAT  (1  Hi  ,4HANG  =  ,  1.3,  /  ,4HAL3C,7X,  3HC  AT  ,4X,6HSI ' 
5X,10HFADE  POWER, 4H  GT) 

IF (ANG  .LT.  NUMANG)  GOTO  160 

DO  205  1=1 ,  NUMR 

BASE  (  I  ,L  3  )=t'ASF  (  I  ,L2  ) 

CAT(  I,L3)  =CAT  C,L2) 

GOTO  161 

CALL  NEXT JL3,  I  fc  V/J> 

I  F  (  I  E  V  .  GT.  C  )  GOTO  '800 
FORMAT  (1  X,30I 4) 

CONTINUE 


IA[),10X,5HPOW£R, 


ZM  =  FLOAT (BASE (CEL35,L2)”ALT ) /FLOAT (GD35) 


DO  270  R  0  W  = 1 ,  N  U  M  R 

JLO_wL_?  KOJL-1  _ 

IFCROWl"  .LEV  0)  R 0 W 1  =  1 
R  0W2  =  ROW  +  1 

I  F  (  R  0  W  2  „  3T.  MUMR)  R0W~2  =  nUMR 


ZDELT  =  FLOAT(bASE(ROW2,L2)-bASE(KOWl,L2))/FLOJ 
Z  T  =  APS (BASE  (R0W,L3?~t)ASE  (  <0W,L1  )) 


( w  I D  2  ) 


i 
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POWER 


T05 

106 

107 

108 

109 

110 
1  11 
1  1  2 
m 

1  14 

115 

116 
T17  ' 
118 
119 

1  20 
T  21 
1  22 
123' 
1  24 
'  T2  5 
1  26 
127“ 
1  28 
'12  9 
1  30 
131 
1  32 
173 
1  34 
1  35 
1  36 
177 
1  38 
137 
1  40 
1  41 
142 
147“ 
144 

145 

146 

147 
1  48 
147 
1  50 


ZHYP  =  SQRT(ZY*ZY  *  LEN(R0w)**2) 
Z  R  HO  =  ZY /FLOAT (LEN(ROW) > 

ZCOCRHO  =  FLOAT  (LEN(ROW) >77HYP 


NALT  =  ALT  -  B A3 E(  R0WVL2  J 
I F  ( ROW  .GT.  C  EL  35 )  GOTO  230 
ZSINTH  =  ~'Z$rfc75  " 

ZCOSTH  =  ZCOS35 
GOTO  2  50  ' 


230 


TGBIS  =  RW*WTDTH“  - - -  ~ 

Y  =  Z  M  *Z  G  D  I  S  +  ALT 

1  F  (  Y  .GT.  BA  SCTROW*  L2‘> )  GOTO  270 

ZM  =  FLOATCBASE <R0W,L2>-ALT> /ZGDIS 

I S  R  =  SORT CZ  GDT5  *  *2  *  ma  L  T*“*2) 

ZSINTH  =  ZGDIS/ZSR 

ZCOSTH  =  TL0ATCNALT1 /ZSR  -  ' 


250 


251 


CONTINUE  '  . .  .  -  . 

I F (ZCF <CAT< R0W/L2) ,1 )  .LT.100.)  GOTO  251 

Z OT ( FT0U7  =~T0~.  -  -  --  - 

GOTO  270 

CALL  H  TPWRTZ  RHC/ZC  0  S1W/2CE  LTV  N  A  LTV  CAT  ( R  07,12  )  ,ZCG5TH, 

1  Z  S l NT  H, Z  PWR) 

Z  GT  C  ROW)  =  ZOT"(  R0W3  +  ZPWW . . . *  ~ 


270 


CONT  INUE 


WRITE (02)  <Z0T(J),J=1,NUMR> 


T  =  LI 
L  1  =12 
L  2=L  3 
T  3=7 


C 

z 

c 

c 


OUTPUT  LINE 
TEMP  FILE 


OF  GREYTONE  I WAGT  T5TTLU  TN  POLAR  TOPTAT)  “nr 


290 

300 


830' 

801 


DO  290  K=1,NUMk 

ZGT<K,L3J=0 

Z  OT  <  K )  *0 

CONTITTUE 

STOP 

WRITE  C 6V 8 01 ) "AN G 
FORMAT ( ’  RAN  OUT 
S  TCP 
END 


OF  DATA  AT  RECORD 


15) 


3-78  09.815  LIE 

“*  T  SUBROUTINE  NE  XT  (LTNE,  I  EV>  -  - - - 

2  IMPLICIT  INTEGER  (A-V) 

3  REAL  RMS 

4  C 

5  COMMON  /RANDOM/  I S  E  ED  -  - 

6  COMMON  /P ARAM/  NUM R , NU MA N G, R AD  I U S , W I D T H / l AL T / 2 C T AU, KL A PP , NUM C A T 

7  '  COMMON  /IO/  BASE'(400,3),CAT(  400,3‘> .  . . 

8  DATA  MASK, TREES  /  077,2/ 

10  READ<01,END=900>  (BASE (I, LINE), 1=1, NUMR) 

12  DO  100  1=1, NUMR 

IT”  CAT(  I, LINE)  =  AND(BASE(I,L1NE),MATK)  -  "  ‘  ' 

14  8 ASE ( I ,L I NE )  =  I RL ( 8 A S E ( I , LI NE ) , 6 ) 

16  C  SPECIAL  ELEVEATION  ADJUSTMENT  FOR  TREE  CATAGORY 

18  I F (CAT ( I , L  INE  )  .NE.  TREES)  GOTu  ICO 

""T9 . "3  ATE (1, 1 1 NE)  =  BASETIYLINE)  ♦  70  ♦  RMS  ( I  SETD)  *  1 0  "  ‘  -  - 

20  100  CONTINUE 

22  RETURN 

— 7T~  TOO"  TEV  =  1  . . -  - . —  —  "  '  - - 

24  RETURN 

~  ”25  '  fND  ’  -  *  -  - - 
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- T  . 

2 

3 

4 

5 

6 

.  7  — 

8 

~T~ 

'  10 
_1T_ 

12 

HI  - 
14 
T5 
1  6 

- T7 

18 

19  " 

20 

- 

22 

23 

24 
‘  25 

26 


SUBROUTINE  RTPWRCRHO,COSRHO,DELT,NALT,ICAT,COSTH,SINTR,PVR)  ‘  " 
C 

logical  tag 
real  RM3 

COMMON  /RANDOM/  I S  EE  D 

COMMON  /P ARAM/  NJM R , NU MAN G / R A D I U S r U I D  T H , Z A L T , 2 C T AU* K L APP, NUM C A T 

COMMON  T  ABLE  C  10 DOT  »  C  F  ( 1 6741 .SCI  67 *UEN  (  400  *T  AG  . 

DATA  FUDGE  1.91  93/  _ _ 

ITRACE  =  1 

DATA  SIGREF/-.8/ 

-  BASE ALT  =  ZALT -  -  -  -  . .  . -  -  - 

IFCICAT  ,GT.  1)  GOTO  505 

PVR  »'  0 . 

RETURN 

C  CALCULATE  LOCAL  ANGLE  OF  INCIDENCE 
505  ACOS  =  (COSTH  +  SINTH*DELT)/SQRT ( 1.  +  DELT  **2+RH0**2) 

- i  ftaco rTcmr; >"  goto  soo  -  — 

NLOC  =  AC  OS  *  1 000. 

ATOC  =  TA~BLEXRlOrr*5T.T95  “  ~  -  - - 

c 

1F7NL0C  "iLT.  6  .OR".  NL  OO  iTGT."  995  )  AL  OX  '5"  ARCUS  C  ACOS )  *57.295 - 

C 


27 

28 

C 

C 

CALCULATE-  SIGWA  ZE  RO  FOR  GIVEN"  CATAGURY  AT  THE  L"0  C  AL  "  AN  GUE - 

OF  INCIDENCE  JUST  CALCULATED 

»2~9  - 
30 

c 

SIGO  =  ALOC* ( ALOC* <ALCC*CF (I CAT,1 )  +  CF(  ICAT,2) )+CF(  ICAT/3)  ) 

3T" 

32 

<4  +CF  ( I C  A T*4  ) 

I F ( KL  A  PP  .EQ.  1 ) S I  GO  =  S(ICAT)  ♦  1 0* A L OG 1 0 < A C 0 S )  -  FUDGE 

sa 

C 

31  "GO  =  STGU/TTI.  -  3 1 G  ft  E  F 

35 

36 

C 

C 

thdElt  s  sine  OF  Angle  rHtTA-DtLi 

WHICH  IS  NEEDED  FOR  THE  POWER  FORMULA 

37  " 

38 

C 

IFCDELT  .LT.  .05)  GOTO  160 

"39“ 

40 

ffiDELT  =  A5S  C  CS  1  NTH.-COTTH*  CELT") /S~GRTCT. +  DELT*  *T)T 

GOTO  161 

42 

"T3 

44 

45 

46 

4  7  — 
48 
"4"9 

50 

51 

52 


161  1FCTHDELT  .LT.  .001)  GOTO  SI  0 


Alt  =  (BASE AUTTTN  ALT 


C  POWER  EQUATION 
C 

‘  "  ~  PWR  = ~ (1 0 ** 5 TGO) * ( ALT  **3)  /  (2  *CDST  H*"COTRrtO*T>rD'ELTO 

GOTO  900 
C 
C 
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IF(ITRACE  .GT.  3)  WRI  TE  (6#t.01  )  COSIH,OELT 
FORMAT ( '  DELTA  IS  >  THETA  '/3F1J.4) 

PWR  =  0 
GOTO  900 

I F ( I TR  AC  E  .GT.  3)  WRITE(6#S11)  S I kTri , C CS TH , D E L T , RHO# T H DE L T 
FORMAT  < '  DELTA  =  T HE T A  '  , 5 F  1  2  .  4 ) 

P*R  =10.  * 

IF  (PWR  .LT.  .001)  PWP=.001 
G  T  =  Al  C  6 1  0  <  P  W  R )  *  3  2  .  ♦  3  4  . 

IF(TAG)  WRITE(6,23)IFIX(AL0C),ICAT,SIG0/PWR1 


ACOS 


PWR^IFI X (GT) 


07-13-78  09. 3  2 D 

1  C 

2  C 

3  C  *  * 

4  : 

5  C 

..  _  .  fiu.  C  . .  .  . . .  . 

7  C  PARAMETERS  TO  BE  ADJUSTED  TO  RUN  THIS  PROGRAM 

- _8 -  _C_ _ 1*.) - N IE£_  J 0£ CELLS  .  T.Q  AVERAGE  _ 

.  9  C  2.)  RES  DETERMINES  THE  SIZE  OF  THE  IMAGE 

_  —  JQ  . C _  3.) _ NllLEJUilCt  DETERMINES-  WHICH  RECORD _ 

11  C  TO  WRITE  TO  ON  THE  OUTPUT  TAPE 

.  ..  ..  12  C  A.)  JUCO..JEUlGr  «.»tlCH  .lEJULgNINjjL.  ouTTA9  FWJjJjAT _ 

1 3  C  (DIC0*1  FOR  DICO  FORMATS  FOR  IDECS) . 

... _ JL4 _ £ _ _  _ _ _ 

15  c **************************************************  ******* 

17  :  A  CHANGE  OF  RESOLUTION  CHANGES  DIMENSIONS 

.  .  _  .1.8  C _  OF  ARRAYS.  JHC.ORB._ANJ)  .01  ._  __  .  . .  ..  _  _ 

19  C  RECORD (RES)  ,  OT(WORD)  WORO  *  RES/6  ♦  1 

21  C  MOST  OTHER  DIMENSIONS  DEPEND  ON  NUMR  WHICH  IN  TURN 

_ 22 _ C  DEPENDS  DU  U1E__RAD1US _ 

23  C  NUMR  *  RADIUS/WIDTH 

-  . 24  _  C. _  Z1N  (  NUJMR)_*APM.R<NUMR.#.l 2J  *  Z.UMX  NUMR)  *10  T  (NUAR ) _ 

25  C  ZAVE (NUMR*12)#BASE(NUMR*121) t  IN(NUMR) 

17th  CHANGE  IN  DIMENSIONS  SHOULD  BE  ACCOMPANIED 

.... _ 28 _ C _ BlY  A  CHANGE  IN  THE  LIMITS  CARDS _ 

29  C 

*_  __  ....  _3Q  . c  »»»«♦»»»»»»»» «»*»»*♦»»»»»»»»*»*»»»»«♦»»»» »»»»»»»»»  »»*» 

31  C 

_ 32 _ C _ If  ID.  EX  S__OUXPUJ_IS  DESIRED  »CHECK  THE  FOLLOWI  N6 _ 

33  C  D I C 0*0  IN  DATA  STATEMENT 

34  X  ...  F  FILE.  ON  OUT  .TAPE  INCLUDES  ONLY  A  8UFSJZ  SO  THAT 

35  C  EACH  LOGICAL  RECORD  IS  A  SCANLINE.  ( BUFS I Z *R ES*20) 

_ 36  ..  _C  PUT  A  D|N5  ON_OUTPUT  TAPE7  CARD  _ 

37  C 

_ 38 _ C _ UL.Plifi  OXIJPJJT  IS  DES I  RE  D»  CHE  CK  THE  FALLOWING _ _ 

39  C  D I C 0* 1  IN  DATA  STATEMENT 

_ _ 4XL _ A _ FFILEISlAUI  IN  S PECI F  Y ING  N  S  T  P L SyJLOSD LS  #  E I C . _ 

41  C(  FFILE  02,NSTDLB,N0SRLS,  FI  X LNG/ 1 54 , BU FS I  2/ 1 54 

.  ....  4.2.  ..  c  WORD  P.RE.S./6  t_J . . .  . . .  . . . 

43  C  REMOVE  DEN5  FROM  OUTPUT  TAPE 7  CARD 

45  C  **  *************  ***** ** * *  **** ******. **  *****  *  * **  **♦. *  *  ** 

_» _ 46 _ : _ 

47  C 

_  _  .4.8  ...  .  C.  _.  _ _ _  _ _  ....  _ _ _ _  ... 

49  IMPLICIT  INTEGER  (A-Y) 

_  5Q  _  _  REAL  AL0G1 0*.F_LOAT _ 

51  COMMON  ZIN(360)#ZPWR(360#1 2) 

- 52  - - D1MENSIQN.L(J2X,ZUMX  360)^101(360)  ^ZAVE(3D£L«12J _ 


GRAYTONE 

GRAYTONE 


-I 
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GRAY  TONE 


53 

C 

'  '  —  —  —I 

54 

DATA.  L/U  2, 3, 4, 5, 6, 7, 8, 9, 10,  11,12/ 

55 

DATA  1, N,NF I LE,DIC0,RES  / 1  , 1  , 1 , 1 , 92 1 / 

56 

DATA  GTREF  / 34/ 

57 

c 

.  .  ..  58 

c 

.....  __  ,  _  _ _  _  _ _  1 

59 

READ  (02)  NUMR,NUMANG, RADIUS, WIDTH, ALT, ZCTAU 

60 

UR  I T £ (6*607 )  NUMR,NUM ANG ,  R  AD  I US,W I D  TH , AL  T , ZC I A J 

61 

507 

F  0  RM  AT (  '  NUM  R,  NUMANG, RADIUS, WIDTH* ,418,/, 

62 

5  '  ALTITUDE  AND  PULSE  LENGTH  ARE  ',I5,F10.5) 

63 

WRITE(04)NUWR,NUMANG,RADIUS,UIDTH,ALT,ZCTAU 

.  64 

.  .  ..  .... 

WRITE  (04)  NF  ZLE-,0  I  C  O#  RES  .  ..  .  .  . 

65 

WRITE(OI)  NUMR,NUMANG,RADI US, WIDTH, ALT, ZCTAJ 

66~ 

0 

67 

DO  100  1  =  2,12 

.68 

D  0 1  =  I 

69 

CALL  GETLINE ( D01 ,N,NUMR, IE  V) 

.  70. 

DO  90  J»J  ,NUMR _ ......  ....  .  . 

71 

90 

ZAVE(J,I-1)»  ZP WR  <  J , I ) 

72 

100 

CONTINUE 

73 

..  74 

S TRT *7  -  XM-1J/2 

75 

END  =  STRT+M-1 

. 26 

0 

77 

DO  150  1  =  1 ,NUMR 

78 

ZUN( I) *0. 

79 

DO  140  J»$TRT,END 

...  .  .60  . 

_ ULO 

ZUM ( I ) +ZPWR C I , J > 

81 

150 

CONT  INUE 

- .  .  82  - 

• 

83 

OLD  a  STRT-1 

_  _ 84  - 

NLW  a  END  ...... 

85 

KOMPLT  a  0 

j _  .  .86 

#* 

87 

...  _ _  .88  .  . 

C 

c 

89 

_  .90  - 

5 

C 

PTS  a  M* ( N- 1  ) / 2 

91 

DO  200  I *1 , N UM R 

92 

IFM  . LE.  (  N  ♦  1  ?/??  PT-S  a  PTS+M 

93 

I F  <  I  .GE.  NUMR-N/2)  PTS  a  PTS-M 

.  _  _ 94  ...  . 

IF.  t  PTS  -EQ .  13  )PTS»1 

95 

_  -  S6 _ 

C 

2  OT  a  ZUMC437PT8 .  . . . . 

97 

IFCZOT  .LT.  .001)  ZOT* .001 

_  98 

-IlK-U* _ F 

99 

IfdOT(I)  .GT.  63)  IOT  Cl  )*63 

_  .  .100 

IFCIOJ-CU  .LT.  -0)  IOT  (10*0 

101 

200 

CONTINUE 

_  402 

* 

103 

WRITEC01)  (I0T(J),J«1, NUMR ) 

. 104 _ 

0 

IS 


)1  07 


13-78 

19.823 

GRAY  TONE 

105 

1C6 

C 

KOMPIT  «  KQMPLT+1 

107 

1Q8 

C 

IFUOMPLT  .EQ.  NUMANG )  GOTO  950 

109 

110 

111 

112 

3)3 

T  »  L  (  1  ) 

00  300  I«.U1!  ..  _ _ 

L(I)*L(I*1> 

LC12)*t  _  _ 

113 

1.14 

r 

C 

I  F  (KOMPLI  „G  T«.  CNUMAN6-1 1)  )  GOTO  400 

115 
_1 16 

CALL  GETLINE <L <1 2) #N#NUMR#IEV> 

IfCIEV .GI.  U  GOTO  900 

117 

ua 

• 

GOTO  500 

119 
.  120 

430 

CNTaCNT+1 

DO  4  10  I«1  #NUMR 

121 

122 

413 

ZPWR(I#L(12>>»ZAVE<I#CNT> 

123 

1  24  ... 

530 

LOLD  =  L(OLD) 

LNEUL*L  CNEM)  . . . 

125 

126 

5.1U 

DO  510  I  » 1 #  NUM  R 

ZUJtIL)  »  IMMLUJlZ P WRX L* LNEMJ -  Z  P  W  R  (  I  #LQ_LD ) 

127 

.128 

GOTO  5 

129 

110 

900 

901 

WRITE<6#901>  IEV/KOMPLT 

FORMAT ( *  ABNORMAL  TERMINATION#  IEVa',15#'  KO  MPL  T  *  '  #  I  5  > 

131 

112 

. . .  95 Q  .. 

STOP 

*RITE<6#951> 

133 

_ 1.14  „ 

951 

FORMAT (  '  ***  WE  ARE  DONE  ***') 

STOP 

135 

END 

“f  — 
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SUBROUTINE  GETLINE(LINE*NAVG*NUMRs 
IMPLICIT  INTEGER  (A-Y) 

COMMON  ZIN(360)#ZPWR(360/12) 


1 

SUBROUTINE  G ETLI NE (L I NE^NAVG *NUMR, I 

2 

IMPLICIT  INTEGER  (A-Y) 

3 

COMMON  ZIN(360)#ZPWR(360#1 2) 

4 

* 

3 

READ  (02  *E  ND  =  900 )  (  ZI N( J ) ,J*1 / NUMR ) 

6 

C 

7 

ZUM*0. 

8 

IPTR  =  1 

9 

OPTR  a  1 

10 

#» 

11 

no 

ZUM  a  ZIN(IPTR)  ♦  ZUM 

.1.2.  _ 

IPTR  *  IPTR+ 1 

13 

IFdPTR  .LE.  (NAVG*1)/2)  GOTO  100 

u 

• 

15 

ZPWR  (OPTR,LINE)*ZUM 

16 

OPTR  =  OPTR+1 

17 

c 

_  18  . 

..  120 

.ZUM.*  ZUM  ♦.  ZIN(  IPTR) 

19 

ZPWR (OPTR, LI  NE)  =  ZUM 

20 _ 

QPTR  a  OPTR-M 

21 

IPTR  a  IPTR+1 

.  ....  22 

IEO.PTR  .LE.  NAVE)  GOT*  120 

23 

_ .24  . 

.  C 

25 

BOT  a  1 

26 

150 

.  2.UM  »  ZUM  +ZIN(IPTRO-ZINCBQT) 

27 

ZPWR(OPTR,LINE)»ZUM 

.  .  2S 

QPTR*0PTR+1 

29 

IPTR*IPTR+1 

. .  30  . 

BOT  =  BOT  +1 

31 

IFdPTR  .LE.  NUMR)  GOTO  150 

32 

33 

200 

ZUM  a  ZUM  -  ZINC  BOT) 

34 

_ 

ZPWR (OPTR, LI NE)*ZUM 

35 

OPTR  a  OPTR+1 

.  .36  . 

BOT  a  BOT+1 

37 

IFCOPTR  .LE.  NUMR)  GOTO  200 

31 

* 

39 

RETURN 

40 

* 

41 

900 

WR I T  E ( 6,801 ) 

42  ... 

.  501  . 

/OPMAT  (  •_  UNEXPECTED  £N$  .Of  DATA') 

43 

I E  V*  1 

44 

RETURN 

45 

END 

C.4.3  Rectangular  Conversion  Computer  Program 

This  computer  program  was  written  in  FORTRAN  for  implementation 
Honeywell  66/60.  It  consists  of  two  subprograms: 

(A)  Rectangular  Create 

(B)  Rectangular  Array 


221 
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RECTANGULAR  CREATE 


1 

2 

3 

4 

5 

6 
7 

-8 

9 

-10 

11 

12 

13 


RECTANGULAR  CREATE 

IMPLICIT  INTEGER  (A-Y) 

REAL  FLOAT /ARC OS 

DIMENSION  BUF(600)#TABLE(1000> 

DATA  ZBMWD/. 00875/ 

REWIND  <04 ) 

READ (04  )  MAX  D I SsMAXANGsRAD I U  S / W I DTH 
READ  (04)  NFI LE#DICO#RES 
WRITE(03)RES#DIC0#NFILE 


15 

? 

FORMATC  INPUT  PARAMETERS  -  MAXDIS*MAXANG*R4DIUS#WlDTH*'s5l8) 

16 

IFCWIOTH  .EQ.  0)  WIDTH  =  R AD  I  US/M A X D I S 

17 

• 

-  -  _ 18 

DO  100  1  =  1  #1000 

19 

100 

TA8LE(I>=  ARC0S(FL0AT(I)/1 000. ) / Z  BMW  D 

20 

21 

22 

C 

c 

23 

HFRES  =  RES/ 2 

_ 24 

. . 

If(2*HFRES  .-LT.  RES)  HFRES  =  HFRES  *1  _ 

25 

ZSIZE  =  FLOAT  (2*RADIUS)/FL0AT(RES)  -  .001 

-  26 

* 

27 

555 

CONTINUE 

28 

* 

29 

DO  600  I  =  1 # R  E S 

.  .  jn_ 

N.X  =  I*ZSIZE  -  RADIUS 

31 

I  F  (  N  X  .  EG) .  0)  NX  =  ZSIZE/2 

32 

Z-X  =  ABS(NX) 

33 

N  X  2  =  NX  *  NX 

34 

ifcnx.it,  n  .np.  me  .  GT .  0)  goto  ?00 

35 

OTF  =  1 

_ .  .  -36_ 

NEG  =  -1 

37 

WRITE(03>  NEG 

. J8 

- 

39 

200 

DO  575  J=1 #RES/2 

. . 40 

NY  =  J  *  ZS I Z  E  ^ZSIZE/2 

41 

NY 2  =  NY  *  NY 

. -  42- 

ROIS  =  SflRTC  NX2  +  NY2) 

43 

R  =  RD  IS /WIDTH 

_  44 

If(  R .  GT  .  M  A  X  D  I  S)  GOTO  S8G 

45 

COSANG  =  ZX/ FLOAT (RDIS)  *  1000. 

46 

ANG  i  T  ABLE  (  CO  SANG-) 

47 

IF (COSANG  .LT.  6  .OR.  COSANG  .GT.  994) 

.  _ 43 

& 

ANG  •  ARC0SX2X/FL0AT(RDIS))/Z8MWD 

49 

50 

C  - 

I F ( A  NG  .EQ.  0)  ANG  =  1 

51 

c 

- 52  _ 

— 

If(R  .EQ.  OL-DA  .-AND.  ANG  .68.  OL  DANG )  GO  10  5-75  -  - 

07-13-78 

09.8?; 

RECTANGULAR  CREATE 

”  53 

" 

CNT  »  C  NT* 1 

5  4 

I F  < C NT  .ST.  1)  GOTO  585 

55 

OLDR  «  R 

56 

OLOANG  *  ANG_ 

57 

585 

I F ( C  NT  .GT.  600)  GOTO  800 

58 

FL0<0e1Q,.BU£XCNTX)*J-.1  _ 

59 

FLO( 10,1 O,0UF< CNT ) >«OLOR 

60 

FL6(2Q,10,SUf  (CHIJl'QLDAUG . 

61 

OLOR  «  R 

62 

OLOANG  =  ANG  . 

63 

575 

CONT INUE 

64 

580 

CNT  «  CNT  ♦  1 

65 

FLD(0,10,BUF (CNT))»J-1 

_  _66 

f  LD(1Q,10,8UF<jCNTJ>?0L9R _ 

67 

FLO ( 20,10, 8UF<  CNT) )»0L DANG 

68 

OLOR  »  8  _  _ _ 

69 

OLOANG  *  ANG 

.  -  70 

WRITE  (03)  CNT  . 

71 

WRITE! 03)  <3UF(I9),I9«1,CNT) 

72 

TOT  ■  TOT  ♦  jCMI _ 

73 

MOST  »  MAX (MOST, CNT) 

_ 74 

CNT  *  _  _  _ 

75 

sio 

CONTINUE 

76 

_ 

GOTO  950  _  _ _ _ 

77 

800 

WRITE ( 6,805 )  I 

03  07-13-78  09.327  RECTANGULAR  ARRAY 


1 

C 

RECTANGULAR  ARRAY 

2 

* 

3 

IMPLICIT  INTEGER  (A-Y) 

4 

DIMENSION  BASE (360*1 2 1 )*BUf(600) *  RE C 0R9 ( 921 ) *0T (154J 

5 

DIMENSION  IN (360) 

_  ......  .6 

«k 

7 

c 

IF  DICO  OUTPUT  IS  DESIRED  SET  DIC0»1 

r 

8 

c 

OTHERWISE  IDECS  OUTPUT  FORMAT 

9 

10 

c 

c 

'$ 

11 

c 

.  12 

REWIND (01) 

13 

_  14 

c 

REWIND (03) 

15 

READ(01  )  NUMR*NUMANG*  RADIUS,  WIDTH 

16 

READ(03)R£S*DIC0*NFILE 

17 

r 

w 

_  18 

W  R I  T  E  (  6  *  1 4 1 .)  RES#  D  I C  0  #  N  FILE  .......... 

19 

141 

FORMAT ( '  R E  S *  DI C OsNF I LE  *  ’*318//) 

20 

* 

21 

C 

POSITION  OUTPUT  TAPE  TO  PROPER  FILE  WITH  POST. 

_  22 

c 

F-I4.E  IS  CHOS-EJi  BY  -SETTING  'NF.  I LE  •  IN  DATA  ST  AT  EMENT  _ 

23 

4> 

24 

IF  (  N  F I LE  ^NE.  .-DCAU.  P  OS  T  (  02  *  0  *NF  ILE*  1  #£fi  R  ) 

25 

IF (ERR  .NE.  0) WRI TE(6/ 223) ERP 

26^ 

22  3 

FORMATE'  TROUBLE  WITH  POST  '<-15) 

27 

28 

. ..  c 

IF  (ERR  .NE.  0)  STOP 

29 

HFRES  *  RES/2 

r~ 

. 30 

.  ,.c. 

31 

N 1  80  =  NUMANG/2 

*  1 

L _  32 

N  9  0  =  NUMANG/4 

33 

c 

34 

.  DO  110  I*l*-NUM4N6 

35 

RE  AD  (01 )  (IN(J),J*1*NUMR) 

36 

ANG  *  MOD ( (I *545 ) #  NUMANG) *  1 

37 

WORD*  ( ANG-1 ) /6  +  1 

38 

BIT  *  M00<  (ANG-1  )  *6)  *6 

39 

** 

40 

DO  105  Js.l*_NUMR 

41 

1  D  5 

FLD(BIT/6*BASE(J*W0RD) )*  I N ( J ) 

42 

1 1  0 

CONTINUE 

43 

m 

44 

5 

DO  500  1*1* RES 

45 

NUM  *  1 

46 

READ  (03)  ENT 

47 

I F ( C NT  .GT.  0)  GOTO  7 

48 

OTF  si  ., 

49 

READ(03)  CNT 

i  1 

_ 50 

7 

READ (03)  (BUF<19)* 19*1 ,CNT) 

51 

STRT  *  1 

_ 52 

END  *  F  LD-(  0*  1  0  *BUF<4  )  1  - 

07-13-78  0  9.  3  ?  7 


RECTANGULAR  ARRAY 

FLD<10*10#BUF<1) > 

»  FLD.L2O*10#eUF<1>> _ 

«  N9G+1-ANG 


1F(0TF  .  GT,.  0)  GOTO  300 
WORD  »  <ANG-1>/6  ♦  1 


- ou _ 

61 

62 

HU  3  HUU1  UUSLb -]_JL*tti*_D _  ...  

LEFT  >  FLD(BIT«6sBASE (RsWORD) > 

TH  ■  N180-ANG  ♦  1  . 

I 

63 

64 

65 

.  66 

-  - 

WORD  a  (TH-1 ) /6  ♦  1 

31  T  *  HOD  t IT  H-1  >  /  6  )_*  6  _ 

RGT  a  FLD(B1 T/6,8ASE(R/W0RD) > 

GOTO  121 

■  -  -  ■  - 

67 

68 

"  5  30 

TH  *  NUMAN5  -  ANG  ♦  1 

69 

. _ _  70 

WORD  *  (TH-1)/6  ♦  1 

SIT  *  MOB.(_CTH-1>/6>*6  .  . . 

71 

72 

LEFT  *  FLD(BIT#6/BASE(R/W0RD>) 

TH  «  N18Q  »  ANG 

73 

74 

WORD  »  (TH-1 )/6  ♦  1 

BIT  »  M 0 D  (  ( T H-_13 * 61*. 6  ... 

75 

__  .  76  .  . 

121 

RGT  a  FL0(BIT/6»BASE(R *WOR  D>  > 

IF  (  NUM  «E9.  1)  RECORD  CHF.RE.S3. * R.GT 

77 

_ 78 

DO  200  J*STR  T#END 

Jl*HFRES+J  .  ._ 

79 

.  83  _ 

J  2  »  HFRES-J 

RECQRDU.1)«RGT  ....  ...  .  . 

'  81 
.82 

23  0 

* 

>- 

RECORD (J2)*LEFT 

83 

.  .  _ 84 

NUM  *  NUM41 

IF<NUM  .GT.  CNT)  GOTO  40& 

85 

86 

STRT  a  END+1 

END  «  FL0(0/10»BUF<NUM)) 

87 

88 

R  a  FL0(10*10/BUF(NUM) > 

ANG  *  FL  D  (20^.1  0#  BU F  <  NJ1M)  ) 

89 
.  90 

ANG  *  N90+1-ANG 

GOTO  120 

91 

n  _ 

430 

_C  _  . 

CONTINUE 

93 

94 

r 

V 

I  F  ( D  IC 0  .EQ.  D60T0  420 

95 

96 

c 

c_ 

IDECS  ******** 

97 

98 

c 

c  .  _ 

99 

ICO 

22 

WRITE(02>  (RECORD! 19) »  19*1 /RES) 

F  ORMAT  Cl  X/25U3  .  .  ... 

<•  101 

1Q2 

23 

FORMAT (1X/123I1) 

GOTO  401  ..  _  .  _ 

103 

104 

m 

w 

225 


RECTANGULAR  ARRAY 


>3  07-13-78  09.827 

105  C 

105.  _  C 

107  C  *****  THIS  SECTION  WRITES  IN  DICO  FORMAT  ***** 

...  108  C  .  .. 

109  420  00  444  K*1#RES 

11.0  K  K  =  K  - 1 

111  WORD  »  KK/6  ♦  1 

112  -  BIT  *  MODOO<*6)*6  _ _ _  _  _  . 

113  DATA  *  63  -  RECORD(K) 

-  — 114  —  F  L  0  ( BIT .  6#  0  T  (WORO))*DATA  __  - -  -  - 

115  444  CONTINUE 

-  116  UR  I TE  (02)  OT  .. 

117  401  I F ( NOD ( I  *  4 )  ,NE.  0)G0T0  450 

- -  114  CALL  GREYMAPCRG CORO *0*63 #001 #2 40*2*06)  -  -  - 

119  CALL  GREYMAP(REC0R0#0*63#241 #480*2*10) 

- 120  —  CALL  GRGYMAP ( REC OR0*0*63 #4  81 *720*  2*  11)  -  - 

121  CALL  GREYMAP(REC0RD*0#63#721*921#2#12) 

..  122  :  _...  . . .  ...  .  .  . 

123  450  DO  490  M«1#RES 

—  -  .124  —  490  R  E  C-QRO-CtU  «0 _  ...  _ _ _  - 

125  500  CONTINUE 

- 126-  -  WR  HE (6*5011 -  _  -  —  - - 

127  501  F  ORMAT ( / / *  *  THAT  IS  ALL  FOLKS’) 

- -  128  -  E  N  D  F  I L  £  (02)  -  - -  -  ..  . 

129  WRITE(02)RES 

—  ....  J30 _  900  3J0J»  _  _ _ _ _  _ 

131  END 


$  07-13-78 


09.828 


S JBROUT  INE  GREYMAP(ARRAY#MIN#MAX#START«STOP» ST£P#FC> 

IMPLICIT  INTEGER  CA-Y)  .  _ _ _  _ 

CHARACTER  L1NE(3#125)#DENSITY(3*13) 

0  INE  NS.I  ON _ ARRAY  1 1 J _  _ _ _ 

DATA  (  DENSITY  #1.31  /1H  #1  Hw  1 H*  *  1  Hi/  1  H>«  1H»./  1H-±.*1JUE.*.1 

1HM,1HT*1HM,1HM/ 


9 

10 

9> 

DATA  (DENSITY(3#J)#J*1  #1  3)  /  10OH  ,1  HO  1  HS,  1H$/ 

11 

12 

r 

w 

I DUANT  FLOAT  (MAX  —  BIN>/13. 

13 

__  _  _14- 

c 

C  NT  s  0  .  _  _  _  .  _ 

15 

-  -  16 

DO  100  I»START  *STOP#STEP 

CNT  *  CNT-M  _  - . . . 

l  17 

18 

I  F  (  C  NT  ,GT.  125)  GOTO  200 

VALUE  *  FLOAT  C  ARRAY  TJ  ) -MI  M  W  7  01IANT  *  1 

19 

*.  -20  - 

IFCVALUE  .LE.  0)  VALUE  »  1 

I  F  ( V AL UE  .GT. _ 13)  VALUE  ■  13-  -  - 

21 

*.  -22- 

_ 20 

DO  90  J  *  1  # 3 

LINE  CJ#CNT)  ■  DENSI  T  Y  C  Jr  VALUE  ) 

23 

_ _ 24 

100 

CONTINUE 

25 

26 

200 

WRITE(FOIO)  (LINEOsJ  )*J*1*CNT) 

HR  ITE< FC*1 2)  (LINE<2*J)rJ»1*CNT) 

27 

-  28 

to 

HR  I T  E<  F  C#  1  2 )  (LINE(3#J )#J«1*CNT) 

FORMAT  <1012584) 

29 

. .  30 

1  2 

FORMAT ( 1  HO  1 25A1 ) 

RETURN 

31 

END 

l 
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